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ABSTRACT 


This  thesis  reviews  and  illustrates  the  most  common  codes 
for  representation  of  data  items  in  a  computer  memory  or  other 
storage  device,  and  the  representation  of  data  structures  in 
memory.  The  operations  of  input  and  output,  and  the  con¬ 
versions  which  may  be  required,  are  reviewed. 

Linguistic  terms,  particularly  syntax  and  semantics,  are 
applied  to  data  representations,  to  data  structures,  and  to 
format  statements.  Syntax-directed  analysis  of  format 
statements  is  demonstrated  by  algorithms  coded  in  APL.  The 
applicability  of  these  algorithms  to  the  standardization  of 
format  languages  is  discussed. 
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CHAPTER  I 


INTRODUCTION 

In  our  everyday  experience ,  information  is  transmitted 
in  many  different  forms,  including  speech  sounds,  letters 
and  numerals  on  paper,  and  holes  in  punched  cards .  Where 
the  recipient  of  the  information  is  a  computer,  however,  a 
translation  is  required  into  one  of  the  comparatively  few 
forms  which  the  computer  can  process.  Because  of  physical 
properties  of  the  storage  media,  binary  representations  are 
used  exclusively  within  the  computer  and  on  external  storage 
devices.  However,  the  numeric  information  directed  to  the 
computer  and  the  numeric  results  received  from  it  will  almost 
invariably  be  represented  in  decimal  for  the  convenience  of 
humans.  These  are  the  two  basic  problems  of  input  and  output: 
the  many-to-one  transformations  between  the  diverse  pre¬ 
ferences  of  humans  and  the  restricted  repertoire  of  the  machine, 
and  the  necessity  for  de cimal-t o-binary  and  binary-t o-decimal 
conversions , 

The  obvious  method  of  converting  a  decimal  representation 
to  binary  is  by  treating  it  as  a  vector  of  decimal  digits, 
encoding  each  digit  as  a  binary  integer.  Alternatively, 
the  number  as  a  whole  may  be  represented  in  binary,  the 
decimal  digits  being  discarded.  Control  of  the  transformations 
between  internal  and  external  representations  is  achieved  by 
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use  of  a  "format  language"  which  is  capable  of  describing 
concisely  the  most  commonly-used  external  representations, 

A  language  is  simply  a  set  of  rules  which  assigns  meaning 
to  a  string  of  symbols.  In  this  sense,  the  Arabic  numeral 
system  is  a  language ,  as  is  each  system  of  representing 
information  in  a  computer  memory.  The  linguistic  concepts 
of  syntax  and  semantics  are  applicable  to  these  languages. 
Syntax  refers  to  the  structure ,  that  is,  the  permissible 
arrangements  of  symbols.  Semantics  refers  to  the  meaning 
assigned  to  a  group  of  symbols s  and  the  set  of  transformations 
which  are  defined  on  it. 

The  hierarchy  of  units  of  information  undergoing  any 
input  or  output  operation  consists  of  fields,  records,  and 
blocks.  The  block,  the  most  inclusive  of  the  three  units, 
is  the  smallest  unit  which  can  be  physically  transmitted 
between  the  computer  and  an  external  storage  device.  The 
field,  the  least  inclusive,  is  the  smallest  unit  to  which 
the  program  has  access,  A  record  consists  of  one  or  more 
fields,  and  a  block  contains  one  or  more  records.  Any 
programming  language  statement  which  initiates  an  input  or 
output  operation  has  access  to  only  one  level  of  this  hier¬ 
archy.  A  statement  which  can  initiate  transmission  of  a 
field  will  be  called  an  item-oriented  statement.  One  which 
can  initiate  transmission  of  a  complete  record  only  will  be 
called  record-oriented.  There  are  also  assembly-language 
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instructions  which  could  be  called  "block-oriented",  but 
they  are  beyond  the  scope  of  this  thesis. 

A  model  of  a  computer  with  storage  devices,  illustrating 
the  processes  of  input  and  output,  is  described  in  Chapter  II. 
This  model  is  designed  to  represent  the  I/O  operations  of  a 
typical  computer,  while  avoiding  the  technical  restrictions 
imposed  by  an  actual  implementation.  For  example,  the  memory 
organization  of  the  model  is  similar  to  that  of  the  IBM  360 
in  that  both  "field-oriented"  and  "word-oriented"  accessing 
are  possible.  However,  the  360  requires  that  the  programmer 
recognize  word  boundaries,  while  the  model  does  not. 

A  second  model,  intended  to  work  in  conjunction  with  the 
first,  uses  syntax-directed  analysis  to  translate  Fortran  and 
PL/1  format  statements  into  a  common  notation  which  can  be 
executed  to  perform  data  conversions.  This  notation  (or  an 
extension  of  it)  is  proposed  as  a  basis  for  the  standardization 
of  format  languages. 

The  algorithms  which  make  up  these  models  are  coded  in 
APL,  a  conversational  language  based  on  Iverson’s  language 
(Iverson  (1962))  and  described  fully  in  Falkoff  and  Iverson 
(1967)  and  Pakin  (1970).  Where  APL  expressions  are  used  in 
the  text  of  the  thesis,  the  symbol  "4"  preceding  a  conditional 
expression  implies  "truth",  a  boolean  value  of  1  (as  in 
Pakin  (1970)).  Thus  the  statement: 
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4r  A/0  1  =  F>  1,  f?*  1 

(from  the  discussion  of  floating-point  representations  in 
Appendix  A)  states  an  identity  which  holds  for  each  norma' 
lized  floating-point  representation. 

Where  indices  or  related  operations  appear,  1-origin 
indexing  is  used. 
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CHAPTER  II 


DATA  IN  COMPUTER  MEMORY 

2 . 1  Physical  Representations  of  Data 

A  number  is  a  quantity  or  a  measure,  the  result  obtained 
by  counting  or  measuring  or  by  performing  a  computation  upon 
such  results.  A  representation  of  a  number  consists  of  a 
string  of  symbols,  such  as  numerals  printed  on  a  page,  holes 
in  a  card  or  magnetic  or  electrical  states  of  a  circuit,  to 
each  of  which  one  or  more  meanings  have  been  assigned.  Any 
system  of  assigning  meanings  to  symbols  is,  in  effect,  a 
written  language  to  which  the  terminology  and  methods  of 
linguistics  are  applicable. 

The  alphabet  of  a  language  is  the  set  of  all  symbols 
which  may  appear  in  a  string.  The  syntax  refers  to  the 
possible  linear  arrangements  of  these  symbols.  A  rule  of 
syntax  states  a  permissible  or  prohibited  relation  between 
symbols.  Semantics  defines  the  relationship  between  a  symbol 
and  the  set  of  meanings  attributed  to  it  (McIntosh  (1968)). 

In  other  words,  syntax  refers  to  the  structure  of  a  string 
and  semantics  refers  to  its  meaning.  Symbols  which  may  be 
used  singly  or  in  groups  to  represent  numbers  are  called  digits. 
Rules  of  syntax  define  permissible  arrangements  of  digits,  while 
rules  of  semantics  may  be  used  to  identify  the  number  which  is 
represented  by  any  such  arrangement. 

Any  representation  of  numeric  or  non-numeric  data,  whether 
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inside  a  computer  or  elsewhere,  is  essentially  a  method  of 
identifying  one  of  a  set  of  possible  values ,  Appendix  A 
describes  the  most  commonly-used  "languages"  for  the 
representation  of  numbers  in  a  computer.  However,  it  is 
clear  that  no  string  of  symbols  is  inherently  numeric.  A 
system  for  representing  the  integers  from  1  to  N,  for  example, 
is  equally  suitable  for  the  representation  of  any  N-symbol 
alphabet.  All  that  is  required  is  the  establishment  of  a 
one-to-one  correspondence  (called  a  code)  between  that  alpha¬ 
bet  and  the  set  of  integer  representations,  (Where  the 
alphabet  is  ordered,  this  correspondence  is  equivalent  to  the 
operation  of  subscripting  a  vector  of  symbols.) 

In  a  digital  computer,  data  is  represented  by  the  dis¬ 
crete  states  of  physical  devices.  Practically  all  types  of 
these  devices  operate  in  a  bistable  manner.  That  is,  they 
have  the  properties? 

1,  Each  device  may  assume  either  of  two  distinguish¬ 
able  states. 

2.  Each  may  be  set  in  either  state,  and  will  retain 
that  state  indefinitely  until  changed. 

Such  a  device,  which  we  shall  call  a  storage  cell,  is  the 
fundamental  storage  element  of  the  computer.  The  smallest 
grouping  of  storage  cells  in  the  memory  of  a  computer  is 
called  a  byte  (a  word  coined  by  IBM,  Buchholz  (1962)).  A 
group  of  bytes  which  is  transmitted  to  or  from  memory  in  a 
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single  memory  cycle  is  called  a  word.  The  lengths  of  the 
byte  and  the  word  are  thus  structural  properties  of  the 
memory.  The  term  M character"  often  implies  a  graphic  symbol, 
such  as  a  letter  or  numeral,  which  can  be  encoded  in  a  byte. 

We  shall  refer  to  the  contents  of  a  byte  as  a  character  whether 
or  not  a  corresponding  graphic  symbol  exists.  Where  such  a 
symbol  does  exist,  it  is  likely  to  be  represented  by  different 
characters  for  different  applications.  For  example,  the 
alphanumeric  and  binary  fixed-point  representations  of  the 
symbol  "5”  are  likely  to  be  different.  A  named  collection 
of  data  is  called  a  data  set.  Where  it  resides  upon  an 
external  storage  device  such  as  a  magnetic  tape  or  disk,  we 
shall  call  it  an  external  data  set.  A  data  item  is  any  single 
number  or  non-numeric  value.  A  field  is  a  group  of  characters 
(or  bits),  residing  either  in  memory  or  in  an  external  data 
set,  which  represents  a  single  data  item.  It  is  the  smallest 
unit  of  data  in  memory  which,  can  be  accessed  by  the  program. 

The  machine  designer  has  a  choice  between  assigning  an 
address  to  each  byte  or  to  each  word.  The  choice  is 
influenced  by  the  types  of  problem  (i.e.,  the  types  of  data) 
which  the  machine  is  expected  to  encounter  most  frequently. 

For  computational  problems,  where  each  representation  of  a 
number  is  assigned  to  a  single  word  (or  to  two  or  more 
consecutive  words  for  greater  precision) ,  a  word-addressable 
memory  is  more  appropriate.  Where  alphanumeric  data  is  to 
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be  processed,  however,  the  requirement  that  each  field  length 
be  some  multiple  of  the  word  length  will  prove  to  be  unduly 
restrictive  unless  the  word  length  is  one  byte,  i.e.,  unless 
memory  is  byte-addres sable ,  A  machine  which  is  intended  to 
process  both  numeric  and  alphanumeric  data  may  have  its 
memory  organized  in  a  combination  of  these  modes.  Alterna¬ 
tively,  the  second  mode  may  be  provided  by  "software".  For 
example,  the  Cobol  compiler  for  the  IBM  7040  provides  vari¬ 
able  field  length  accessing  of  a  word-addressable  memory. 

2 . 2  Input  and  Output 

The  operations  of  transmitting  data  from  an  external  data 
set  to  memory,  and  vice  versa,  are  referred  to  as  input  and 
output  respectively.  The  abbreviation  I/O  refers  to  input 
or  output  or  both.  The  data  representations  described  in 
Appendix  A  may  be  used  both  in  memory  and  in  external  storage 
devices.  The  physical  unit  of  data  transmission,  that  is, 
the  smallest  collection  of  data  items  which  can  be  physically 
passed  between  memory  and  an  external  data  set,  is  called  a 
block.  Briefly,  the  output  of  a  block  proceeds  as  follows: 

A  number  of  fields  are  concatenated  (in  the  order 
specified  by  the  program),  to  form  a  unit  called  a  record, 
which  is  transferred  to  the  area  of  memory  called  the  output 
buffer.  Subsequent  records  are  constructed  until  the  number 
required  to  form  a  block  have  been  transferred  to  the  buffer. 
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This  block  is  then  transmitted  as  a  unit  to  the  external 
storage  device „ 

The  process  of  input  consists  of  the  reverse  sequence 
of  events o  A  block  from  the  storage  device  is  transmitted 
into  the  input  buffer,,  where  its  component  records  become 
accessible.  The  program  obtains  access  to  one  record  at  a 
time,  subdividing  it  into  fields  for  processing.  The  length 
of  a  block ,  typically  several  hundred  or  a  few  thousand  bytes, 
depends  in  part  upon  physical  characteristics  of  the  storage 
device,  A  record  is  the  only  unit  of  data  which  the  program 
can  receive  from,  or  pass  to,  the  buffer.  It  is  a  logical 
unit  of  data,  that  is,  a  grouping  of  data  on  the  basis  of 
its  content.  The  length  (or  size)  of  a  record  is  determined 
by  the  logic  of  the  program,  whereas  the  length  of  a  block 
depends  upon  physical  requirements.  Consequently,  the  record 
is  sometimes  called  a  logical  record,  and  the  block  a  physical 
record „ 

2 . 3  Data  Structures 

A  record  is  an  example  of  what  we  shall  call  a  data  struc¬ 
ture,  since  it  is  a  grouping  of  fields  which  can  be  referenced 
as  a  unit.  Another  example  is  the  array,  A  data  structure 
may  appear  to  the  programmer  (regardless  of  the  programming 
language  he  uses)  as  one  or  more  of  the  following: 
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lo  A  vector  of  characters,  formed  by  the  concatenation 
of  a  number  of  fields ,  This  characterization  is 
close  to  the  physical  reality,  and  is  a  useful  way 
of  visualizing  a  record  undergoing  I/O. 

2 »  A  hierarchical  arrangement  of  identifiers,  each  of 
which  accesses  a  particular  field.  As  an  illustra¬ 
tion,  consider  the  following  APL  functions? 

V  A  +  A  V  A  ^  A 

A  +•  B ,  C  A  «-  Dt  A 

V  V 


Where  B ,  D  and  A  are  all  scalars  or  vectors  of  the 
same  type  (i,e,,  all  numeric  or  all  non-numeric ) ,  any 
reference  to  A,  B8  C s  D  or  E  (provided  that  a  function 
name  does  not  appear  to  the  left  of  a  specification 
arrow)  will  identify  some  subset  of  the  current  value 
of  the  vector  B s  Ds  A,  These  five  identifiers  will 
behave  as  if  they  were  members  of  the  hierarchy 
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immediately  affect  the  result  returned  by  an  identi¬ 
fier  above  it  on  the  hierarchy. 

3 »  An  algorithm  for  the  selection  of  any  desired  group 
of  one  or  more  data  items  by  means  of  identifiers 
and  indices o  As  an  illustration: 

In  both  Fortran  and  PL/1,  the  notation  used  to 
refer  to  an  element  of  an  array  of  N  dimensions 
is  identical  to  that  used  to  call  a  function  of  N 
integer  arguments  (called  a  ''procedure'’  in  PL/1  and 
a  "function  subprogram"  in  Fortran),  The  statement 
"X  =  TABLE  (3,4)"  in  either  language  is  assumed  to 
be  a  function  call  unless  TABLE  has  been  declared 
as  a  matrix.  Because  of  this  notational  similarity, 
array  identifiers  and  function  names  are  interchange¬ 
able  (except  when  they  appear  on  the  left  hand  side 
of  an  assignment  statement.  The  statement 
"TABLE  (3,4)  =  X"  is  valid  only  where  TABLE  is  a 
matrix,),  A  programmer  may  use  this  interchange- 
ability  to  test  validity  of  subscripts,  to  allow 
negative  subscripts  where  the  language  itself  does 
not,  to  conserve  memory  when  storing  a  triangular 
matrix,  etc. 

The  APL  function  A,  described  in  (2)  above, 
serves  as  a  second  example.  Any  APL  expression  may 


be  indexed.  Thus  where 
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h  6  =  pS 
t  4  =  p  D  3 


it  follows  that 

4  A[4]  =  5[4] 

t  Al  8]  =  Z?[2] 

4r  A/tf  =  (  (  p  A  )  Cdl  0  )  /A  . 

The  term  syntax  was  used  in  Chapter  I  to  refer  to  struc¬ 
tural  properties  of  data  representations.  "Inherent  struc¬ 
tural  properties"  (Wegner  (1968))  of  data  structures  will 
also  be  called  syntactic  properties,,  As  an  illustration  of 
the  similarity  between  a  single  representation  and  a  struc¬ 
ture,  note  that  the  BCD  representation  of  a  number  consists 
of  the  binary  fixed  point  representations  of  the  digits  of  its 
decimal  represent ations „  Thus  the  decimal  representation  is 
encoded  as  if  it  were  a  structure  (a  vector)  of  digits.  An 
array  is  frequently  a  representation  of  some  other  entity. 

For  example,  a  matrix  may  represent 

1.  A  linear  transformation,  possessing  a  determinant, 
an  inverse,  and  eigenvalues. 


~ 

' 
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2,  A  function  of  integer  arguments,  as  in  the  IBM  1620 
computer,  where  decimal  arithmetic  is  performed  by 
a  table-lookup  procedure.  The  addition  operation 
consists  of  a  matrix,  which  we  shall  call  SUMs 
such  that 


■b  SUMlhJl  =  I  +  J  o 

The  matrices  of  these  two  examples  differ  in  what  we  shall 
call  their  semantic  properties,  that  is,  the  set  of  operations 
which  can  be  performed  upon  them.  For  example,  it  would  be 
meaningless  to  attempt  to  find  eigenvalues  of  SUM,  By  the 
semantic  properties  of  a  data  structure,  we  shall  mean  the 
set  o  f  transformations  which  it  can  "initiate  or  undergo" 

(Wegner  (1968)),  (The  data  structures  mentioned  so  far  can¬ 
not  "initiate"  any  transformation.  However,  format  state¬ 
ments,  introduced  in  Chapter  III,  can.) 

The  semantic  properties  of  any  data  representation 
include  the  semantic  properties  of  the  class  of  representations 
to  which  it  belongs,  plus  the  "meaning"  of  the  particular 
representation.  The  semantic  properties  of  a  class  of 
numeric  representations,  for  example,  include  the  capacity 
to  undergo  arithmetic  operations,  rounding,  radix  conversion, 
etc.  Also  included  is  the  set  of  rules  by  which  any  member  of 
that  class  may  be  interpreted,  that  is,  by  which  its  meaning 
may  be  found. 


' 


■ 


' 

1  ' 

' 

4 


•J  tci.  me 


v- 


' 


■ 


14 


2 , 4  DATA  -  A  Simple  Programming  Language 

The  essential  steps  of  input  and  output  operations  on  any 
computer  were  described  in  Section  2.2.  The  degree  of  control 
which  the  programmer  can  exercise  over  the  process  depends 
largely  upon  the  programming  language  used.  The  following 
chapter  will  discuss  the  statements  used  in  several  programm¬ 
ing  languages  to  specify  I/O  operations  and  data  conversions. 
Such  a  discussion  can  be  expressed  most  clearly  be  referring 
to  a  particular  example,  but  an  example  which  does  not 
introduce  unnecessary  restrictions  is  difficult  to  find.  An 
advantage  of  the  IBM  360/67  for  the  purpose  is  the  fact  that 
it  combines  the  "word-oriented"  and  "field-oriented"  modes  of 
memory  organization,  and  can  therefore  demonstrate  the  I/O 
processes  of  either.  However,  the  requirement  that  the 
programmer  be  familiar  with  the  word-boundary  alignment 
restrictions  tends  to  outweigh  that  advantage.  The  example 
which  will  be  used  is  a  model  called  DATA,  consisting  of  a 
set  of  APL  functions  and  arrays.  Since  both  the  memory  and 
the  external  storage  device  of  this  model  are  represented  by 
matrices,  there  are  no  physical  restrictions  upon  either. 

Its  conversational  mode  gives  it  the  additional  advantage  of 
quick  response  to  a  user’s  input.  The  DATA  Language  consists 
of  statements  which  are  intended  to  resemble  the  corresponding 
statements  of  actual  compiler  languages.  A  binary  matrix 
called  CORE  contains  representations  of  data  similar  to  those 


■ 


. 
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used  in  the  memories  of  actual  computers .  Since  each  row 
of  CORE  represents  a  byte,  the  row  index  serves  as  a  byte 
address . 

Some  features  of  DATA  are: 


1.  6-bit  byte  -  Results  in  a  character  set  (the  vector 

DATASEQ)  of  64  characters,,  5  bits  would 
be  insufficient  to  encode  26  alphabetic 
characters  plus  10  digits,  while  7  or 
more  would  make  it  impossible  to  assign 
a  unique  graphic  symbol  to  each  character 
without  the  inconvenience  of  overstriking. 


2.  4  internal  representations: 

Fixed-point  binary 
Floating-point  binary 
BCD  numeric 

* 

Alphanumeric 


1  to  6  bytes 
4  or  7  bytes 
Any  length,  not 
exceeding  one  record. 


The  IBM  360  "packed  decimal  representation, 
requiring  an  8-bit  byte,  is  not  included. 

Since  bytes  are  addressed  in  CORE  and  no  word 
boundaries  exist,  the  lengths  of  long  and 
short  floating-point  representations  can  be 
chosen  independently.  One  need  not  be  a 
multiple  of  the  other. 

Arrays  can  be  defined,  subject  to  several 


restrictions 


' 


- 
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3.  Statements  resemble  those  of  Cobol  and  PL/1  - 
For  example: 


DATA  : 

’ A ’  MOVETO  'B' 

( ’ A '  OF  2)  MOVETO  'B'  OF  1 

COBOL  : 

MOVE  A  TO  B. 

MOVE  A  OF  IN-REC  TO  B  OF  OUT-REC. 

DATA  : 

3  WRITEFROM  2 

PL/1  : 

WRITE( FILE-3)  FR0M(REC-2 ) ; 

Statements  of  the  DATA  language  fall  into  five  classes 

Declarative  -  to  define  fields  and  assign  an 

identifier  and  a  picture  to  each. 

Assignment  -  to  store  or  retrieve  the  contents  of 

a  field. 

Input/output  -  to  cause  data  to  be  transmitted  between 


memory  and  the  external  data  set 

( DATASET ) . 

Control 

-  to  create,  print  or  rewind  a  data  set. 

APL 

-  provides  the  operators  for  arithmetic, 

function  definition,  branching,  etc. 

. 

' 

■ 
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For  more  details,  see  the  DATA  Programmer’s  Guide 
Appendix  B. 

CORE  consists  of  one  or  more  records,  which  the  programmer 
can  subdivide  into  fields,  assigning  an  identifier  and  a  type 
declaration  to  each  field.  A  type  declaration  indicates  which 
representation  is  required,  and  the  relationship  of  this  field 
to  other  fields  (e.g.,  their  relative  positions  in  a  record  or 
an  array ) . 

Every  data  structure  is  stored  in  memory  in  the  form  of 
a  vector  of  characters.  To  relate  the  hierarchical  form  of  the 
structure  seen  by  the  programmer  to  this  linear  arrangement 
in  storage,  we  shall  introduce  some  terminology  from  graph 
theory . 

The  most  general  figure  which  we  shall  require  is  the 
directed  graph,  which  consists  of  a  vector  of  nodes,  and  an 
arbitrary  set  of  undirectional  associations  between  pairs  of 
its  components.  A  directed  graph  which  contains  no  circuits 
will  have  one  or  more  initial  nodes  and  one  or  more  final 
nodes  (see  Figure  2.1).  With  the  added  constraint  that  at 
most  one  branch  may  enter  any  node,  the  graph  becomes  a  tree, 
with  initial  and  final  nodes  called  roots  and  leaves, 
respectively.  This  definition  ensures  that  any  path  from  a 
root  to  a  leaf  will  be  unique.  Any  array  M  may  be  represented 
as  a  (pM)[l]  -  tuply  rooted  tree  (i.e.,  a  tree  of  ( pAf )  [  1  ] 
roots),  as  in  Figure  2.2.  (Iverson  (1962)). 


~ 


■ 
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Figure  2,1 


Directed  Graphs,  with  and 
without  Circuits 


■ 


19 


ML  1  ; 


ML  1 ;1  ;1] 


ML  1 ; 1 ;  2] 


A/[  1  ;  2  ;  1  ] 


MCI  ;2  ;2] 


M[1  ;3  ;1] 


AMI  1 ;  3  ;2] 


ML  2  ; 


Af[  2  ;  1  ;  1  ] 


A/[  2  ;  2  ;  2  ] 


Af[  2  ;  3  ;  2  ] 


Figure  2.2  Doubly-Rooted  Tree  Representation 
of  Array  M>  where  -t  a /(pM)  -232 


. 
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The  association  between  an  identifier  and  a  field  is 
recorded  by  means  of  a  "masking"  vector  or  "bit  map".  This 
vector,  which  we  shall  designate  by  U,  contains  the  locations 
of  the  field  referenced  by  the  identifier  in  the  following  form: 

t  ULI]  =  1  if  the  Ith  character  of  the  record  belongs 

to  that  field; 

■t  i/[I]  =  0  otherwise. 

For  example,  assuming  three  identifiers  A9  B  and  C,  with 
corresponding  masking  vectors  X9  Y  and  Z  respectively,  the 
fields  referenced  by  B  and  C  are  subfields  of  the  field 
referenced  by  A  if  and  only  if 

■t  a  /  ( y vz  )  =  JayvZ  . 

Figure  2.3  represents  this  relationship  graphically.  Each 
non-final  node  of  either  graph  represents  an  identifier, 
each  final  node  represents  a  character  in  the  record,  and  a 
path  exists  from  an  identifier  node  to  a  character  node  if 
and  only  if  that  character  belongs  to  the  field  referenced  by 
that  identifier. 

Where  duplicate  identifiers  are  defined  in  different 
records,  a  qualifier  must  be  used  to  distinguish  between  them. 
For  example,  ' B ’  OF  2  is  a  qualified  identifier  referencing  a 
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Figure  2.3  Two  Equivalent  Graphs  of  a 


Data  Structure 
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field  in  the  second  record  area.  An  unqualified  identifier 
is  assumed  to  refer  to  the  lowest-numbered  record  area  for 
which  that  identifier  has  been  declared. 

Arrays  of  not  more  than  three  dimensions  may  be  defined 
in  DATA,  provided  that  the  entire  array  can  be  stored  within 
a  single  record.  The  statement 

25  ASSIGN LTO  ' A ’  SUB  2  1 

is  an  example  of  an  assignment  statement  which  is  valid  if 
'A'  has  been  declared  as  a  numeric  array  of  suitable  dimensions. 
SUB  is  a  function  of  two  arguments:  the  (unqualified)  identi¬ 
fier  and  the  vector  of  indices.  The  identifier  refers  to  the 
entire  array,  and  the  indices  select  a  particular  component 
(i.e.,  one  field)  from  that  array. 

In  both  of  the  above  examples,  the  identifier  refers  to 
more  than  one  field,  and  the  addition  of  a  qualifier  or  an 
index  vector  is  needed  to  select  a  single  field.  Thus 
indexing  (also  called  subscripting)  may  be  considered  to  be 
a  form  of  qualification. 

A  record  can  sometimes  be  accessed  as  a  unit,  without 
individual  references  being  made  to  the  fields  within  it. 

For  example,  the  I/O  statements  employing  the  verbs  READ MNTO 
and  WRITE  ^FROM  can  refer  only  to  entire  records,  which  they 
designate  for  transmission  to  or  from  DATASET. 


. 
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A  sequence  of  output  operations  will  result  in  the  arrival 
of  a  sequence  of  records  at  the  storage  device.  This  ordered 
group  of  records  might  be  thought  of  as  a  vector  of  which  each 
component  is  a  record.  More  precisely,  we  shall  assume  that 
they  form  a  tree  in  which  each  character  of  a  record  forms  a 
leaf,  and  a  root  exists  for  each  record.  (See  Figure  2.4.) 

In  the  special  case  where  all  records  are  of  equal  length,  the 
tree  becomes  a  matrix  of  characters,  of  which  each  record  forms 


Figure  2.4  A  Tree  or  Vector  of  Three  Records 
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a  row. 

The  storage  device  must  represent  this  tree  in  a  form 
which  preserves  the  order  and  lengths  of  the  individual 
records.  It  may  be  characterized  as  a  second  tree,  of  which 
each  leaf  is  a  byte,  onto  which  the  record  tree  will  be  mapped. 
The  mapping  of  characters  onto  bytes  will  be  one-to-one  by 
definition.  However,  the  mapping  of  records  onto  blocks  may 
in  principle,  be  many-to-one,  one-to-one  or  one-to-many.  That 
is,  a  block  may  contain  the  representation  of  more  than  one 
record,  exactly  one,  or  only  a  portion  of  a  record,  depending 
upon  such  factors  as  record  lengths,  physical  characteristics 
of  the  storage  device,  and  (to  some  extent)  the  preferences 
of  the  programmer.  The  DATA  storage  device  DATASET  is 
restricted  to  one  record  per  block. 

The  tree  of  blocks  and  bytes  must  in  turn  be  represented 
by  DATASET  which  is,  in  effect,  a  vector  of  bytes.  This  can 
be  accomplished  by  concatenating  the  blocks  in  order,  forming 
a  vector  which  can  be  encoded  upon  DATASET y  provided  that  the 
locations  of  the  block  boundaries  are  recorded  as  well.  One 
method  of  recording  these  locations  is  by  specifying  a  parti¬ 
cular  character  called  a  record  mark,  which  will  appear  at 
the  end  of  every  block  but  in  no  other  position.  The  record 
mark  obviously  cannot  be  a  member  of  the  alphabet  of  any  data 
representation.  The  method  which  is  used  in  DATA  is  suggested 
by  Iverson’s  discussion  of  the  representation  of  structured 
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operands  in  memory  (Iverson  (1962)).  The  locations  of  the 
representations  of  a  tree  may  be  found  by  reference  to  a 
"grid”  matrix  of  two  columns,  where  the  Ith  row  of  the  matrix 
contains  the  number  of  leaves  connected  to  the  Ith  node  and 
the  location  of  the  first  of  these  leaves.  Where  the  leaves 
are  ordered  with  no  gaps  between  them,  only  a  single  column 
is  required.  If  a  vector  X  is  constructed  such  that  Xlll 
contains  the  number  of  leaves  connected  to  the  Ith  node,  the 
address  of  the  first  of  those  leaves  will  be  one  greater  than 
the  cumulative  sum  of  the  first  1-1  components  of  X,  that  is 
+/1,  Z[il-1].  A  further  simplification  is  possible  with 
DATASET.  Since  DATASET  may  be  accessed  only  sequentially, 
and  since  the  rest  position  of  the  read/write  ’’head"  is  always 
the  initial  byte  of  a  block,  it  is  only  necessary  to  store 
in  the  initial  byte  of  each  block  an  integer  specifying  the 
number  of  bytes  in  the  remainder  of  that  block.  Thus  the 
information  required  for  the  retrieval  of  the  next  block  is 
always  available,  and  every  block  is  one  byte  longer  than 
the  record  it  contains.  We  shall  call  the  intial  byte  of  any 
block  the  control  byte. 

An  input  operation  is  simply  the  reverse  of  the  output. 
The  next  block  is  retrieved  from  DATASET  and  transmitted  to 


*  Section  7.1.3  of  "Fortran  vs.  Basic  Fortran"  (Anon,  1964) 
defines  the  next  record  of  a  sequential  file.  The  term 
"next"  is  used  here  in  that  same  sense. 
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CORE .  The  record  which  it  contains  is  transferred  to  the 
specified  record  area  of  CORE ,  and  the  position  of  the 
read/write  head  is  advanced  to  the  control  byte  of  the 
subsequent  block. 
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CHAPTER  III 


INPUT  AND  OUTPUT 

3 . 1  Record-Oriented  and  Item-Oriented  Input  and  Output 

For  any  programming  language  statement  which  initiates 
an  I/O  operation,  there  exists  a  characteristic  data  unit, 
the  smallest  entity  which  that  statement  can  designate  for 
transmission  to  or  from  a  data  set.  Blocks,  records  and 
fields  exist  in  every  case,  with  the  relationships  described 
in  Section  2.1.  Where  a  statement  designates  a  record  to  be 
transferred  to  the  output  buffer,  or  from  the  input  buffer, 
that  statement  will  be  described  as  record-oriented  (a  term 
coined  by  the  designers  of  PL/1).  Where  a  statement 
designates  one  or  more  fields  (i.e. ,  data  items)  for  transfer, 
the  statement  will  be  described  as  item-oriented .  (Use  of 
the  term  "field-oriented"  has  been  avoided  because  it  is 
often  used  to  refer  to  a  mode  of  memory  organization  (e.g., 
Flores  (1966)).  Where  all  external  representations  are  to 
be  BCD,  for  example  where  the  external  data  set  originates  as 
a  deck  of  cards  or  where  it  will  ultimately  be  printed, 
either  of  these  two  modes  of  I/O  can  be  used.  The  choice  of 
one  of  them  will  be  made  on  one  of  the  following  bases: 

1.  Some  programming  languages  are  capable  of  only  item- 
oriented  or  only  record-oriented  I/O.  For  example, 
if  the  program  must  be  written  in  Fortran,  then 
item-oriented  I/O  must  be  used. 
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2,  Item-oriented  I/O  can  usually  be  specified  more 
concisely  than  record-oriented,  but  requires  more 
execution  time.  Thus  item-oriented  I/O  is  used 
where  it  is  desirable  to  save  programming  time  at 
the  expense  of  execution  time,  and  record-oriented 
I/O  is  used  where  the  converse  is  true. 

A  discussion  of  these  two  modes  of  I/O,  in  the  DATA 
language  and  in  other  programming  languages,  is  the  subject 
of  this  chapter. 

3 . 2  Item-Oriented  I/O  of  DATA,  Fortran  and  PL/1 

With  item-oriented  I/O,  the  external  representation  is 
always  BCD.  Where  the  representation  in  memory  is  other  than 
BCD,  a  data  conversion  is  required.  A  data  conversion  is  a 
transformation  of  the  syntax  of  the  representation  which, 
ideally,  does  not  change  its  semantic  content.  That  is,  the 
same  number  is  represented  (in  a  different  form)  before  and 
after  the  conversion.  In  fact,  however,  a  semantic  trans¬ 
formation  usually  occurs  as  well,  either  through  intentional 
rounding  or  truncation,  or  as  a  result  of  an  error  introduced 
by  a  radix  conversion.  (Matula  (1968)). 

An  item-oriented  I/O  statement  of  the  DATA  language  con¬ 
sists  of  one  of  the  verbs  GET  and  PUT  followed  by  a  list  of 
identifiers.  (Statements  of  the  forms: 

IT  EM  IN  «-  I 
ITEMOUT  +  J  , 
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(where  -t  */(ItJ)e\3)  must  be  executed  before  the  first 
execution  of  a  GET  or  a  PUT  respectively,  to  specify  which 
data  sets  are  to  be  accessible  by  GET  and  PUT  statements.) 
Figure  3.1  illustrates  the  effect  of  execution  of  a  sequence 
of  PUT  statements.  When  the  statement  PUT  * EB *  is  executed, 
for  example,  the  field  in  COPE  referenced  by  *£’’  is  accessed 
and  the  contents  are  converted  to  BCD  and  extended  with  blanks 
on  the  right  and  left.  If  the  output  buffer  is  not  already 
full,  this  BCD  field  is  transferred  into  it.  If  the  buffer 
is  full,  its  contents  are  transmitted,  as  a  record,  to  DATASET , 
and  the  field  is  transferred  into  the  leading  byte  positions 
of  the  empty  buffer.  These  steps  are  repeated  for  ' B '  and 
for  each  subsequent  identifier  which  appears  as  the  operand 
of  a  PUT  statement.  The  order  in  which  data  items  appear  in 
DATASET  depends  only  upon  the  order  in  which  their  identifiers 
appear  in  PUT  statements,  not  upon  their  relative  positions 
in  CORE .  Execution  of  the  statement  CLOSEFILES  after  the 
final  PUT  statement  will  cause  the  remaining  contents  of  the 
output  buffer  to  be  transmitted  as  the  final  record. 

Figure  3 ° 1 s  with  "PUT"  replaced  by  "GET" ,  all  arrows 
reversed  and  an  arrow  added  from  block  number  3  to  the  buffer, 
illustrates  the  effect  of  a  sequence  of  GET  statements. 

Assuming  the  input  buffer  is  initially  empty,  the  execution 
of  the  statement  GET  MFC*  will  cause  the  next  record  from 
DATASET  to  be  transferred  into  the  buffer.  The  first  group 
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Figure  3.1  Item-Oriented  Output  in  DATA 
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of  non-blank  characters  followed  by  a  blank  or  the  end  of 
the  record  is  taken  as  the  first  field.  The  contents  of  that 
field  are  converted  to  the  type  declared  for  identifier  'A't 
and  assigned  to  the  field  in  CORE  referenced  by  it.  Sub¬ 
sequent  fields  in  the  buffer  are  similarly  located,  converted 
and  assigned  to  the  fields  referenced  by  ’ F'  and  respectively. 

When  no  non-blank  characters  remain  in  the  buffer  and  the 
identifier  list  is  not  satisfied,  a  new  record  is  transferred 
into  it.  Any  fields  remaining  when  the  current  list  of 
identifiers  has  been  satisfied  will  be  accessible  to  a  sub¬ 
sequent  GET  statement. 

Both  Fortran  and  PL/1  include  item-oriented  I/O  state¬ 
ments  which  are  very  similar  to  the  GET  and  PUT  statements 
of  DATA.  (Item-oriented  I/O  is  called  ’’stream-oriented”  in 
the  PL/1  manuals.)  Both  languages  also  include  a  form  of 
I/O  statement  which  refers  to  a  ’’format  statement".  (i.e., 
a  statement  which  describes  the  external  representation  in 
detail.  Formats  are  discussed  in  the  following  section. ) 

No  alphanumeric  type  declaration  exists  in  Fortran,  but 
an  ”A"  format  may  be  used  to  specify  that  the  internal 
representation  is  to  be  alphanumeric.  The  format  indicates, 
on  input,  the  number  of  characters  from  the  data  set  which 
are  to  be  stored  in  each  word  of  memory,  and,  on  output,  the 
number  of  characters  from  each  word  which  are  to  be  trans¬ 
mitted.  Thus  the  manipulation  of  alphanumeric  data  in  Fortran 
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requires  a  detailed  knowledge  of  the  memory  organization  and 
data  represent ations  used  by  the  particular  computer.  This 
is  a  serious  disadvantage  of  Fortran,  particularly  since  the 
necessary  knowledge  can  rarely  be  gained  from  Fortran  pro¬ 
gramming  manuals,  and  must  be  learned  by  trial  and  error  or 
consultation  of  more  specialized  manuals. 

The  greatest  advantage  of  Fortran  over  PL/1  is  that  a 
format  statement  can  be  read  as  data.  This  is  a  useful 
feature  in  library  programs,  where  the  arrangement  of  the 
input  data  on  cards  may  be  different  for  each  run.  A  PL/1 
program  can  not  read  a  format  statement  as  data,  but  it  can 
read  a  set  of  parameters  from  which  the  required  format  state¬ 
ment  can  be  constructed. 

3  o  3  Record-Oriented  I/O  -  DATA,  Cobol,  PL/1 

A  record-oriented  I/O  statement  of  the  DATA  language 
consists  of  one  of  the  verbs  WRITE AFROM  and  READ  AI NTO ,  with 
a  record  number  and  a  data  set  number  as  its  two  operands. 
Figure  3.2  illustrates  the  effect  of  execution  of  a  sequence 
of  WRITE  AFROM  statements.  After  execution  of  the  statement 
N  WRITE  AFROM  Ms  for  example,  a  block  is  constructed  of  which 
the  control  byte  contains  the  unsigned  binary  fixed-point 
representation  of  the  length  (in  characters)  of  the  Mth  record 
in  CORE ,  and  the  remainder  contains  that  record.  The  block 


is  then  transmitted  to  DATASET . 
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Figure  3.2  Record-Oriented  Output  in  DATA 
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The  same  diagram  with  the  arrows  reversed  illustrates 
the  effect  of  executing  a  sequence  of  READAINTO  statements. 

The  blocks  are  accessed  sequentially,  the  control  byte  of 
each  indicating  the  length  of  the  record  it  contains. 

As  indicated  in  the  previous  section,  record-oriented 
I/O  can  be  used  with  a  card  reader  or  a  line  printer.  However, 
a  more  representative  application  is  in  file  maintenance. 
Consider,  for  example,  a  program  which  is  used  periodically 
to  update  a  data  set  (also  called  a  file,  in  this  context) 
containing  a  collection  of  payroll  or  inventory  records.  It 
will  use  the  existing  data  set  as  input  and  create  as  output 
a  new  data  set  containing  the  records  which  are  input,  plus 
additions  and  minus  deletions.  This  new  data  set  will  serve 
as  input  for  the  next  run  of  the  update  program,  and  also, 
possibly,  for  a  program  which  prints  monthly  reports,  state¬ 
ments,  pay  cheques,  etc.  Since  only  the  computer  can  access 
this  data  set,  the  representations  appearing  upon  it  can  be 
the  same  as  those  in  memory,  and  many  data  conversions  which 
would  otherwise  be  necessary  can  be  avoided.  In  a  sense, 
this  data  set  serves  as  a  long-term  portion  of  memory.  If 
the  computer  and  its  external  storage  devices  are  thought  of 
as  a  ’’system",  the  data  transmissions  initiated  by  this  update 
program  are  not  input  and  output,  but  simply  manipulations  of 
data  within  that  system. 

Another  example  of  the  transmission  of  data  without  con- 
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version  between  memory  and  an  external  data  set  is  the 
swapping  of  APL  workspaces.  A  limited  number  of  workspaces 
can  reside  in  memory  at  any  time.  The  other  "active"  work¬ 
spaces,  if  any,  are  stored  on  disk  while  waiting  their  turn 
to  be  processed.  Corresponding  to  the  control  byte  of  the 
data  record  is  a  control  block  containing  the  information 
needed  to  identify  the  workspace,  to  retrieve  it  from  disk, 
and  to  resume  processing  of  it.  In  this  case  also,  the 
external  storage  device  serves  as  an  extension  to  memory,  and 
swapping  takes  place  entirely  within  the  "system".  (Breed 
and  Lathwell  (1967)). 

3 . 4  I/O  Conversions 

We  have  already  stated  that  item-oriented  I/O  of  numeric 
data  includes  a  data  conversion  from  an  internal  representation 
to  BCD,  or  vice  versa.  The  conversion  on  input  is  many-to-one, 
because  many  different  arrangements  of  characters  (digits, 
blanks,  decimal  point,  etc.)  can  represent  the  same  number. 

The  essential  information  about  a  BCD  representation  is: 

1.  Field  width  and  location  -  number  of  characters  in 
the  representation. 

2.  Default  number  of  decimal  places,  to  be  assumed  if 
no  decimal  point  appears  in  the  representation. 

3.  Scale  factor,  if  any.  Sometimes  the  internal  and 
external  representations  differ  by  a  factor  which 
is  a  power  of  10, 
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The  output  conversion  is  one-to-many.  The  information 
which  is  required  for  a  complete  specification  of  a  choice 
from  the  "many"  is: 

1=  Field  width  and  spacing,  vertically  and  horizontally . 

2.  Choice  between  fixed-point  and  floating-point 
representations . 

3.  Number  of  significant  digits  and/or  decimal  points . 

4.  Locations  of  signs  and  editing  characters,  if  any. 

5.  Choice  between  truncation  and  rounding. 

6.  Radix  of  the  representation  -  decimal,  binary, 
octal,  etc. 

These  choices  are  sometimes  determined  by  the  implementa¬ 
tion.  For  example,  on  input  using  the  Fortran  NAMELIST  or 
the  PL/1  GET  LIST  or  GET  DATA  options,  fields  are  delimited 
by  blanks  or  commas,  and  scale  factors  and  default  positions 
of  the  decimal  point  are  not  permitted.  On  output  using 
these  options,  there  is  a  one-to-one  correspondence  between 
external  and  internal  representations.  An  internal  short 
binary  floating-point  representation,  for  example,  will  be 
converted  on  output  to  a  decimal  floating-point  representation 
with  an  arbitrarily  fixed  number  of  significant  digits  and 
width  of  field. 

As  another  example  where  the  programmer  can  not  specify 
the  external  representation  he  will  receive,  an  APL  output 
representation  is  determined  by  the  number  represented,  not 
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by  its  internal  form.  That  is,  there  is  a  one-to-one 
correspondence  between  the  number  represented  and  the 
sequence  of  digits  and  characters  printed.  The  integer 
3,  for  example,  is  always  printed  as  M3",  never  as  ”3.00" 
or  " . 3 0 0 0 0 0 0F1 "  ,  even  if  its  internal  representation  is 
floating-point . 

In  nearly  all  programming  languages,  however,  the 
programmer  is  able  to  describe  the  desired  external  repre¬ 
sentations  by  means  of  a  format  statement.  A  format  statement 
contains  one  or  more  format  items,  each  of  which  describes 
the  syntax  of  a  BCD  representation.  The  set  of  rules  by  which 
the  description  is  encoded  will  be  called  a  format  language.* 

(Where  record-oriented  I/O  is  used  and  all  external 
representations  are  BCD,  the  type  declaration  statements 
perform  the  functions  of  a  format  language.) 

For  a  given  format  item,  i.e.,  a  given  syntactic  des¬ 
cription  of  the  external  representation,  the  data  conversion 
required  depends  upon: 

1.  The  number  to  be  transmitted. 


*  Perlis  was  apparently  the  first  to  use  this  term.  Perlis 
(1964). 
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2,  The  type  declaration  assigned  to  the  internal 

representation,  and  the  memory  organization  para¬ 
meters  which  affect  its  meaning.  For  example,  the 
Fortran  type  declaration  INTEGER  specifies  a  binary 
fixed-point  representation  occupying  one  word.  Its 
length  is  32  bits  on  the  IBM  360/67,  or  36  bits  on 
the  IBM  7040 „ 
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CHAPTER  IV 


SYNTAX-DIRECTED  ANALYSIS  OF  FORMAT  LANGUAGES 

4 . 1  Introduction 

The  concept  of  a  format  "language",  for  which  syntactic 
and  semantic  rules  exist,  has  been  used  by  Knuth  et  al. 

(1964)  and  by  Perlis  (1964)  to  describe  their  proposed  format 
conventions.  The  use  of  rules  of  syntax  in  processing  a 
language  statement  is  called  syntax-directed  analysis.  The 
process  of  analyzing  a  format  item  (or  a  string  of  symbols 
in  any  language)  to  discover  which  rules  of  syntax  were  used 
to  form  it  is  called  parsing.  Any  notation  which  may  be  used 
to  specify  the  rules  of  syntax  of  a  format  language  is  called 
a  metalanguage.  The  most  commonly-used  metalanguages  are 
derived  from  Backus  Normal  Form  (BNF,  which  first  appeared 
in  the  Algol  60  Report).  We  shall  use  the  variant  suggested 
by  Iverson  (1964). 

This  chapter  describes  a  system  of  APL  functions  which 
use  a  transition  diagram  representation  of  the  rules  of 
syntax  of  a  format  language  as  a  basis  for  translating  format 
items  of  that  language  into  a  universal  format  language 
(abbreviated  UFL).  The  entire  chapter  refers  to  that  system. 
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4 . 2  A  Parsing  Algorithm 

This  section  describes  both  the  preparation  of  a  format 
language  for  syntax-directed  analysis,  and  the  parsing 
process.  However,  most  of  the  description  could  be  applied 
to  the  analysis  of  any  language. 

Any  character  of  the  string  being  parsed  is  called  a 
terminal  symbol.  A  syntactic  unit  is  any  group  of  symbols 
defined  by  a  rule  of  syntax.  It  may  contain  terminal  symbols 
or  other  syntactic  units,  or  both.  A  transition  diagram  is 
a  directed  graph  having  one  initial  node  and  one  or  more 
final  nodes.  Each  arc  of  the  graph  corresponds  to  one  of: 

1.  a  syntactic  unit 

2.  a  terminal  symbol 

3.  a  blank  path. 

Each  transition  diagram  represents  one  or  more  rules  of  syn¬ 
tax.  A  simple  example  of  a  format  language,  a  subset  of 
that  of  Fortran,  is  shown  in  Figures  4.1  to  4.3°  The  BNF 
representation  of  the  rules  of  syntax  (Figure  4.1),  the 
transition  diagram  representation  (Figure  4.2)  and  the  matrix 
DSFTAB  (Figure  4.3)  are  equivalent.  Columns  of  DSFTAB  repre¬ 
sent,  respectively: 

1.  Diagram  number. 

2.  Initial  node,  and 

3.  Final  node  of  the  arc  represented  by  this  row. 

4.  0  denotes  a  terminal  symbol,  1  denotes  a  syntactic 


unit . 


■ 


- 


is-- 

. 


- 


4l 


d 

DIGIT: 

1 1  2  |  3  | 

t 

TYPE  : 

A  1 1 

1 

ITEM  : 

d  X  1 1  d 

2 

LIST  : 

1  |  1,* 

3 

FRMT  : 

(  2  ) 

TERMINAL  SYMBOL: 
TYPE: 


123456789,  AI  X  ,  (  ) 

4  5  6  7  8  9 


Figure  4.1  Syntax  of  a  Subset  of  Fortran 


5.  "Type"  number  of  a  terminal  symbol,  or  Diagram 
number  of  a  syntactic  unit,  or  0  denoting  a  blank 
path . 

6.  0  if  this  node  is  not  an  exit  node,  or  a  non-zero 
integer  indicating  which  exit  node  it  is. 

7.  An  integer  indicating  to  the  semantic-analysis 
algorithm  the  action  to  be  taken  each  time  this 
node  is  reached,  except  that,  for  an  exit  node,  this 
information  appears  in  column  6  and  column  7 
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2a  (see  text) 


2b  (see  text) 


Figure  4 . 2  Transition  Diagrams,  with 
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. 


■ 


. 


43 


V  DSF  STR 


[ 1 ]  FORM+STR 

[2]  TABLE+DSFTAB 

[3]  CHARS+DSFCHARS 

[4]  CHI  NDEX+-DS  FCH 

[5]  TYPES+DSFTYP 

[6]  LAN  GCODE+-0 

[7]  NEXT ITEM 
V 

DSFTAB 


112  0  4 

1  2  4  0  6 

113  0  5 

1  3  4  0  4 

2  12  11 

2  2  3  0  7 

2  3  4  1  2 

2  2  4  0  0 

3  12  0  8 

3  2  3  1  2 

3  3  4  0  9 


0  0 
1  0 
0  0 
1  0 
0  0 
0  0 
2  0 
2  0 
0  0 
0  0 
3  0 


DSFCH 


DSFTYP 


ITEM 

LIST 

FRMAT 


DSFCHARS 

12345678  9AIX , ( ) 


444444444 


0 


PRINT*- 1 

DSF  '(31,15,^3) 

ITEM  3X 

ITEM  1 5 

ITEM  A  3 

LIST  A  3 

LIST  13, A3 

LIST  3X,I5 ,A3 

FRMAT  (3*, 15 ,43) 


Figure  403  Arrays  for  Subset  of  Fortran 
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Transition  diagram  1  specifies  that  the  syntactic  unit 
ITEM  may  consist  of  a  digit  followed  by  an  "X" ,  or  alterna¬ 
tively,  an  "A"  or  an  ”1"  followed  by  a  digit.  The  sample 
parse  of  Figure  4.3  contains  examples  of  these  three  forms 
of  ITEM , 

Diagram  2  of  Figure  4.2  defines  a  LIST  as  a  concatenation 
of  one  or  more  ITEMS  separated  by  commas.  Although  this 
definition  is  recursive,  it  will  terminate  after  a  finite 
number  of  entries  to  the  diagram  because  terminal  symbols  from 
the  string  are  identified  upon  each  entry.  The  blank  path 
from  nodes  2  to  4  implies  that  if  a  match  is  not  found  on  any 
other  path  from  2,  an  exit  is  allowed.  A  blank  path  is  always 
tested  last,  after  all  other  paths  having  the  same  initial 
node  have  failed  to  produce  a  match.  Therefore  no  more  than 
one  blank  path  may  begin  on  any  node. 

Diagram  3  completes  the  specification  of  the  language 
subset,  and  is  the  starting  point  for  a  parse.  Diagram  2a  is 
equivalent  to  diagram  2  when  the  parse  is  performed  manually. 
However,  our  rule  of  testing  a  blank  path  after  all  nonblank 
paths  from  the  same  node  results  in  an  infinite  number  of 
entries  to  the  diagram,  since  its  first  arc  initiates  a  new 
entry  without  first  matching  a  terminal  symbol.  A  human 
parser  would  (probably)  notice  this  and  choose  the  empty  path 
at  the  appropriate  times  but  an  algorithm  cannot.  In  diagram 
2b,  the  addition  of  a  single  arc  to  diagram  2  (and  therefore. 
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a  single  row  to  the  matrix)  extends  the  language  subset  to 
include  constructions  such  as:  (A3,(3X,A4))  and  (2X, (A3 ,15) ) , 
which  contain  one  FRMAT  within  another. 

Parsing  proceeds  under  control  of  the  rules  of  syntax 
represented  by  DSFTAB  (Figure  4.3),  beginning  at  the  row 
corresponding  to  the  first  arc  of  diagram  3.  Each  time  a 
syntactic  unit  is  encountered,  the  current  row  index  is  pushed 
down  on  a  stack  and  a  new  diagram  (a  new  row)  is  entered. 

When  a  diagram  is  either  traversed  satisfactorily  or  abandoned 
because  no  match  could  be  found,  the  stack  is  popped  up  to 
return  control  of  the  previous  diagram.  When  the  stack  becomes 
empty,  the  parse  is  complete  or  else  an  error  has  been  found. 

If  one  or  more  matches  have  already  been  found  within  a  dia¬ 
gram  but  no  match  can  be  found  for  the  current  symbol  of  the 
format  string,  (i.e.,  no  exit  node  can  be  reached)  an  error 
has  been  encountered.  Because  of  this  requirement,  (the 
"no  back-up"  rule,  Conway  (1963)),  the  designer  of  a  tran¬ 
sition  diagram  must  ensure  that  the  first  terminal  symbol 
of  any  syntactic  unit  will  fail  to  be  matched  within  a  diagram, 
unless  the  entire  syntactic  unit  can  be  matched.  For  the 
simple  language  illustrated  in  Figures  4.1  to  4.3,  this  is 
easily  accomplished.  In  general,  however,  the  no-backup  rule 
must  be  carefully  observed.  For  example,  since  the  initial 
terminal  symbol  of  each  of  the  Fortran  format  items  2X,  4A2 , 
3HXYZ,  and  5(2X,I3)  is  an  integer,  all  must  be  represented 
by  the  same  transition  diagram.  That  diagram  may,  however. 
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have  as  many  distinct  exit  nodes  as  necessary,,  (See  Figure 
C .  1 ,  Appendix  C .  ) 

The  global  variable  NUMSTACK  ("number  stack")  stores 
integers  which  have  been  identified  by  the  parsing  algorithm 
but  have  not  yet  been  used  in  interpretation  of  the  format 
item.  The  function  TOPNUM  removes  from  NUMSTACK  the  integer 
which  was  stacked  last,  returning  it  as  a  result. 

The  parsing  algorithm  NEXT  ITEM  calls  the  function  SEMANTICS 
(Figure  4.4,  statement  14  or  21),  which  controls  the  inter¬ 
pretation  of  a  format  item.  When  any  arc  of  a  transition 
diagram  is  matched,  whether  by  matching  of  a  terminal  symbol 
or  by  successful  traversing  of  another  transition  diagram,  a 
non-zero  value  in  column  6  or  7  of  the  row  of  TABLE  which 
corresponds  to  that  arc  indicates  which  interpretation  rule 
is  to  be  executed.  (Zero  indicates  that  no  action  is  required.) 
For  an  exit  node,  the  argument  to  be  passed  to  SEMANTICS  is 
found  in  column  6  of  TABLE  ( NEXTITEM3  statement  21).  Other¬ 
wise  (statement  14),  column  6  contains  0  to  prevent  an  exit, 
and  column  7  supplies  the  argument. 

For  example,  during  a  parse  of  the  PL/1  format  item 
2E(l4,8)  ,  SEMANTICS  is  called  six  times  with  nonzero  arguments. 
Each  integer  is  stacked  as  it  is  identified.  Matching  of  the 
"E"  causes  initialization  of  a  counter,  which  is  incremented 
and  tested  at  each  subsequent  matching  of  a  If  the 

counter  exceeds  its  limit,  2  for  an  E  format  item,  an  error 
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V  NEXT  ITEM ;  ROW  ;  J  ;i? ;  XFPX  ;  P  I\4  G;MK;A 

[1]  R*-\ROWPT*-0 

[2]  i?0fv^XASL£[  il]\[  /TABLEl  ;1] 

[3]  IDS*-  tSYPTR*-l 

[4]  TERMM :  -+SKIP  Ax~ TABLE [ROW ;  4] 

[5]  ROWPT+ROWPT ,ROW 

[6]  ROW*-T  ABLE  [  ;  1  ]  i  T  ABLE[ROW  ;  5  ] 

[7]  IDS+IDS ,SYPTR 

[  8 ]  +TERMM 

[9]  +SKIP  5  x  0  =T  AB  LE [ROW ; 5 ] 

[10]  -*(  2MSLF  [F0i7 ;  5  ]  *CHINDEX  [  CHARS  i  FPMSYPXP]  ]  ) /BKUP 

[11]  -+SKIP  \  TRA  CE 

[12]  *  MATCHED :  '  yFORM[SYPTR'] 

[13]  SYPTR+-SYPTR+1 

[14]  SEMANTICS  TABLE[ROW ;7] 

[15]  ->(  O  =  XAPLF[F0J7;  6]  ) /GOO 

[16]  I+IDS[pIDS]-l 

[17]  D I AGITABLE [ROW \ 1] 

[18]  +S£IP~PFPiyXATABLP[i?0J7;  6]e  i  (p TYPES)  [1]_ 

[19]  (  yTYPES[TABLE[ROW \  6]  ;  ]  )  ,  '  ',FORM[I+\  1 +SYPTR-I] 

[20]  +SKIP  0>TABLE[ROW ; 6 ] 

[21]  SEMANTICS  TABLE [ROW ; 6 ] 

[22]  IDS*-IDS[  i“l+pJPS] 

[23]  -*  (  0  =  ROW*-T  OP )  /  0 

[24]  +P£IP  _8xPIAG  =  TABLP[i?CW;  5] 

[25]  +S£PP  1 

[26]  GOO :+(0=MK+GO  ROW)/BKUP 

[27]  ROW+-MK 

[28]  -+TERMM 

[29]  S££/P  :  TEST*-{  a/[2]  (  (  pXF5X )  pXAPPF [F0f/ ;  1  2  ]  )  =  [ 

;  1  2])/x(pXASLF)[l] 

[30]  TEST*- ,  (  TEST>ROW)  /TEST 

[31]  +SKIP  2x0= p tTEST 

[32]  ROW+loTEST 

[33]  -+TERMM 

[34]  ROW+TOP 

[35]  +SKIP  2xSYPTR>IDS[pIDSl 

[36]  IDS*-IDS[  i  1+pIPP] 

[37]  -> (  0 < p  tROWPT) /BKUP 

[38]  ’  WRONG  SYNTAX.  1 .FORM 

[39]  ( (17+SYPTR)p '  ' ) i' 

V 

V  R+GO  RO ; TE ; J; J 

[1]  TE+(TE>RO) /TE+(TABLE[ ; 1 ] =TABLE[RO ; 1 ] ) / i (pYASLF)[l] 

[2]  +(~XASLF[F0;3]eXABLF[XF;2] )/i?«-0 

[3]  P^-XP[X/45LP[XP;  2]  i  TABLE[RO  ;  3  ]  ] 

V 


Figure  4.4  Parsing  Algorithm 
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message  is  printed.  Matching  of  the  ")"  causes  interpretation 
of  the  format  item  to  begin.  The  counter  indicates  how  many 
integers  are  to  be  unstacked  for  the  interpretation.  The 
replicator  "2"  must  be  left  as  the  "top"  element  of  NUMSTACK 
when  interpretation  of  E(l4,8)  is  completed. 

Since  a  set  of  transition  diagrams  incorporates  the 
rules  of  syntax  of  a  format  language,  any  string  of  symbols 
which  cannot  be  parsed  on  the  basis  of  those  diagrams  contains 
a  syntax  error,  by  definition.  A  string  of  symbols  which 
satisfies  the  rules  of  syntax  but  does  not  constitute  a  valid 
format  item  is  said  to  contain  one  or  more  semantic  errors. 

The  set  of  rules  of  syntax  for  any  format  language,  however, 
is  not  unique.  A  comparatively  simple  set  can  be  chosen  which 
will  correctly  parse  any  valid  format  item,  but  will  allow 
many  invalid  ones  to  pass  undetected,  A  more  complex  set  of 
rules  can  be  chosen  which  will  detect  all  except  a  few  classes 
of  invalid  format  items.  The  distinction  between  syntactic 
and  semantic  errors  is  thus,  to  some  extent,  an  arbitrary  one. 
An  example  of  an  error  which  is  clearly  semantic  is  one  in 
which  the  values  of  digits  are  invalid,  as  in  the  Fortran 
format  item  F2 . 9 .  An  example  of  an  error  which  may  be  treated 
as  either  syntactic  or  semantic  is  the  PL/1  format  item 
P,Z9/Z9/Z9*.  Since  the  "Z"  indicates  suppression  of  a  leading 
zero,  it  may  never  follow  a  "9" ,  which  indicates  a  printed 
digit.  The  UFL  system  treats  this  as  a  semantic  error, 
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although  as  a  question  of  "the  permissible  arrangements  of 
symbols”.  It  should  perhaps  be  classified  as  syntactic.  The 
syntax  rules  represented  by  PLTABLE  accept  any  sequence  of 
"Z's"  and  "9’s",  and  the  semantic-analysis  function  C0MPL1 
(statements  34,  35  and  36)  prints  an  error  message  if  a  "Z" 
appears  anywhere  following  the  first  appearance  of  a  ”9". 
Transition  diagrams  could  probably  be  drawn  which  would 
detect  this  error,  but  the  additional  complexity  does  not 
appear  to  be  justified.  In  the  current  versions  of  COMPL 1 
("compile  PL/l")  and  COMPAFORT  ("compile  Fortran"),  a  syntactic 
error  terminates  the  parse  but  a  semantic  error  does  not. 
(Figures  4.5  and  4.6.) 

4 . 3  An  Experimental  Universal  Format  Language 

The  semantic-analysis  algorithm,  under  control  of  the 
parsing  algorithm,  translates  each  format  item  into  an  equi¬ 
valent  "target  language"  representation  which  is  independent 
of  the  format  language  originally  used.  This  target  language 
must  be  capable  of  specifying  fully  any  data  conversion  which 
might  be  required.  However,  it  need  not  be  concise  or  easily 
coded  by  hand,  since  the  translation  will  always  be  done 
automatically.  The  target  language  consists  of  two  integer 
matrices,  FORMM  and  TARGMAT .  FORMM  serves  as  the  index  to 
the  representation,  since  each  column  (with  minor  exceptions) 
corresponds  to  one  format  item  and  points  to  the  appropriate 
portion  of  TARGMAT . 
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PRINT+l 

FORTFORM  '  ( F5 . 1 , 3 ( A  4 , 2 X , J3 ) )  ' 


SA  7F 

CODE? 

NO 

DIGIT 

5 

DIGIT 

1 

CODE 

F  5  . 1 

ITEM 

F  5  .  1 

DIGIT 

3 

DIGIT 

4 

WIDTH 

44 

ITEM 

44 

DIGIT 

2 

LIT 

2* 

DIGIT 

3 

WIDTH 

13 

ITEM 

13 

LIST 

13 

LIST 

2X  ,13 

LIST 

A4 ,2X ,13 

FORM 

(44, 2X ,13) 

REPFM 

3(A4,2*,J3) 

LIST 

3  U4 , 2X  ,13  ) 

LIST 

F5  .  1  ,  3 (44  ,  2X, 13  ) 

FORM 

(F5.1,3(A4,2*,I3)) 

FORTFORM  ' (F5 , 1 , 3 (44 , 2* , 73 , ) ) ' 
£A7£  CODE? 

NO 

DIGIT  5 
WIDTH  F 5 
IfFM  F5 
2JGJT  1 

Jv'FO.A/G  SYNTAX .  (F5il,3(A4,2*,J3,)) 

t 


Figure  4.5  A  Parse  of  a  Fortran  Format 
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PRINT+1 


PLFORM  '  (3F(9,5,6)  ,  P  ’  *  ZZ  9 , Z  9  9  *  '  )  ' 
SAVE  CODE? 

NO 

INT  3 
INT  9 
INT  5 

ILLEGAL  COMMA :  ( 3P( 9 , 5 , 6 )  ,P ' ZZ 9  ,  Z 9 9 ’ ) 

t 

INT  6 
SPEC  6 
5PFG  5,6 
SPEC  9,5,6 
ITEM  F( 9,5,6) 

ZFPS  Z 
ZFPG  ZZ 
SEP 

INT  9 

SEP 

SEP 

ZEDS  Z 
SEP 

INT  9  9 

SEP 

GRP  9  9 

GPP  Z  9  9 

GPP  9 , Z  9  9 

GPP  Z  Z  9 , Z  9  9 

ILLEGAL  SEQUENCE  i  P'ZZ 9,Z99* 

+ 

LIGP  P ' Z  Z  9 , Z  9  9 1 

LIST  3P( 9 , 5 , 6)  ,P? ZZ9  ,Z99  ' 

FORM  (3P(9,5,6),P'ZZ9,Z99!  ) 


Figure  406  A  Parse  of  a  PL/1  Format 


Statement 


' 


■ 

■ 


. 

I 

- 


52 

For  example,  assume  that  the  data  item  A  is  to  be  con¬ 
verted  for  output  by  reference  to  a  target  language  description, 
and  that  the  corresponding  column  of  FORMM  has  the  values: 


Value  Me aning 

10  Decimal,  i . e .  ,  a  numeric  value 

0  Truncate.  (1  would  indicate  rounding). 

0  Right  justified  in  the  field  (1  would  indi¬ 

cate  left  justification). 

2  Replicator  -  this  format  item  is  to  be  used 

for  two  consecutive  data  items. 

5  Field  width  of  BCD  representation. 

K  A  location  in  TARGMAT. 

We  shall  call  this  column  the  vector  M ,  A  matrix  Y  will  also 
be  required,  specified  by 

Y  «-  TARGMATl  ;  Af[  6  ]  +  iV[5]] 

Let  us  assume  that  Y  has  the  value 

0  0  0  0  0 

110  0  0 
0  0  0  1  0 

2  2  0  0  0 

0  0  0  0  0 
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These  values  of  M  and  Y  correspond  to  the  PL/1  format  item 
2F(5,1) .  Their  interpretation  is  as  follows:  Each  column  of 
Y  describes  a  single  character  of  the  desired  BCD  repre¬ 
sentation.  The  1  in  I[;3]  marks  the  position  of  the  decimal 
point.  The  2fs  in  I[;4]  mark  possible  sign  positions,  blank 
for  plus  and  M-n  for  minus.  Thus  the  number  of  character 
positions  available  for  digits  and  sign  is  +/Y[3;]=o.  (In 
general,  the  number  is  +/Y[3;]<0,  since  Y[3;]  may  contain  a 
negative  value  indicating  the  position  of  an  assumed  decimal 
point  which  is  not  printed.)  Where  A  is  positive  there  may 
be  4  digits,  since  no  sign  will  be  printed. 

A  is  now  converted  to  a  character  string  of  digits, 
decimal  point,  sign,  etc.  The  action  to  be  taken  on  overflow, 
that  is,  where  too  few  character  positions  have  been  provided 
to  the  left  of  the  decimal  point,  is  indicated  by  the  contents 
of  In  this  example,  Y[l;]  contains  only  zeros,  implying 

that  the  sign  and  leftmost  digits  may  be  truncated  if  necessary, 
the  remaining  digits  being  printed.  Any  nonzero  elements  of 
Y[l;]  are  used  as  subscripts  in  the  vector  CHARSET  to  deter¬ 
mine  which  characters  should  replace  the  corresponding  digits 
of  the  representation.  For  example,  where 

t  A/YCl ; ]  =  CHARSET  x ’ * ’ 

the  field  will  be  filled  with  asterisks  if  a  sign  or  leading 
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nonzero  digit  has  been  lost  (as  in  Fortran). 

Some  values  of  A  and  the  representations  to  which  they 
would  be  converted  by  the  matrix  of  this  example  are: 


Value 

Representation 

+3.38 

3.3 

+33.87 

33.8 

-33.87 

-33.8 

-338.70 

338.7 

-3387.00 

387.0 

Sample  parses  of  format  statements  of  Fortran  and  PL/1 
are  shown  in  Figures  4.5  and  4.6.  The  syntactic  units 
identified  within  a  format  statement  are  listed  or  not  depend¬ 
ing  upon  whether  the  value  of  the  global  variable  PRINT  is 
1  (Figures  4.5  and  4.6)  or  0  (Figure  4.8),  respectively.  By 
typing  "NO"  in  response  to  the  message  "SAVE  CODE?",  the 
programmer  indicates  that  previous  entries  (if  any)  in  FORMM 
and  TARGMAT  are  to  be  overwritten.  "YES"  causes  subsequent 
entries  to  follow  the  previous  ones,  i.e.,  to  occupy  succeeding 
columns . 

As  a  second  example,  consider  the  Fortran  format 
(3X, 4( 3F13 . 4 ,17 ) ) .  The  nested  parentheses  demonstrate  the 
flexibility  of  the  transition  diagram  method  of  analysis. 
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Translation  proceeds  as  follows: 

After  the  item  3X  has  been  identified  and  translated  into 
a  column  of  FORMM>  the  integer  4  is  identified  and  pushed 
down  on  NUMSTACK.  Next,  the  "("  is  matched,  and  the  current 
value  of  the  variable  FNEXT  (i.e.,  the  index  of  the  next 
available  column  of  FORMM )  is  pushed  down  on  PARENSTACK  as 
a  record  of  the  location  of  the  first  format  item  within 
parentheses.  The  integers  3,  13  and  4  are  identified  in  turn 
and  pushed  down  on  NUMSTACK .  The  format  item  F13.4  can  now 
be  coded  in  TARGMAT .  The  node  by  which  an  exit  is  made  from 
transition  diagram  number  3  returns  a  value  of  3,  transferring 
control  to  the  statement  of  COMPAFORT  labelled  " THREE ",  The 
4  and  13  are  unstacked  (in  that  order),  and  they  and  the  "FM 
are  used  in  construction  of  FORMMl ; FNEXT]  and  the  corresponding 
13  columns  of  TARGMAT .  When  the  scan  of  the  format  item 
F13.4  is  completed,  the  scan  of  the  "RPITM"  (i.e.,  "replicated 
item")  3F13»4  is  thereby  completed  also,  and  the  next  integer 
from  NUMSTACK ,  3,  is  assigned  to  FORMML 4 ; FNEXTl ,  overwriting 
the  1  which  was  placed  there  as  a  default  replicator.  FNEXT 
is  incremented,  17  is  translated  and  FNEXT  is  incremented 
again.  The  next  terminal  symbol,  the  ")",  indicates  that  a 
FORM  has  been  traversed,  thereby  completing  the  traverse  of 
a  REPFM  ("replicated  format"),  which  returns  a  value  of  13. 

This  value  is  passed  to  the  function  COMPAFORT  to 
indicate  that  the  top  entry  of  NUMSTACK  is  a  replicator  for 
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the  entire  FORM.  A  dummy  vector  (i.e.,  a  column  which  does 
not  refer  to  any  one  format  item)  is  entered  in  FORMM : 

COMPAFORTl 29]  THIRT  :  FORMMl ; FNEXT ]  ^  0  0  0  tT0PNUM , 0 , TOPPAREN 

Function  TOPNUM  unstacks  the  top  entry  from  NUMSTACK  (i.e., 
the  replicator  4),  and  function  TOPPAREN  unstacks  the  top 
entry  from  PARENSTACK ,  which  is  the  column  index  in  FORMM 
which  corresponds  to  the  first  format  item  within  this  pair 
of  parentheses.  Where  there  is  no  replicator  for  a  FORM ,  the 
value  14  is  passed  to  COMP AFORT  to  indicate  that  the  top  entry 
of  PARENSTACK  should  be  unstacked  and  discarded: 

COMPAFORTl 31]  FORT:  +  pO /TOPPAREN 

Parentheses  nested  to  any  depth  can  be  interpreted  by 
the  UFL  system,  as  long  as  the  number  of  replicated  formats 
(REPFM ' S )  does  not  exceed  the  number  of  rows  in  the  replicator 
table  REPTAB  (a  local  variable  of  WRITEOJJT ,  Figure  4.7).  In 
practice,  however,  it  is  difficult  to  find  an  example  of  a 
format  statement  which  requires  more  than  two  levels  of  nesting. 

WRITEOUT  makes  use  of  TARGMAT  and  FORMM  and  controls  the 
conversion  of  data  items.  Upon  exit  from  the  function,  it 
returns  a  character  vector  consisting  of  the  representations 
of  all  the  components  of  "LIST".  The  logic  of  WRITEOUT  is 
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V  STR+WRITEOUT  LIST ;J ;REPTAB ;REP ;ST \J \K \X ;Y \Z 


[1]  STR+\I+0 

[2]  LOOP  :  -+SKIP  1  <  J«-l  +  ( FNEXT-  1  )  \  I 

[3]  REPTAB+  7  2  pO 

[4]  -+SKIP  3 x FORMMl  5  ;  J ]  xREP+0 

[5]  -+(FORMMm-,Il<K+REPTABtJ+(REPTABl  ;l]eO,J)  il  ;2]  +  l )  /  LOOP 

[6]  REPTABIJ; ,K 

[7]  I+FORMMl 6 ; i] 

[8]  +SKIP  2*FORMML 1 ; I]>1 

[9]  STR+STR  tFORMM[.5  ;  J]p  1  ' 

[10]  -+LOOP 

[11]  -+SKIP  2xO*F0i?MM[4;I] 

[12]  STR+STR  tCHARSET\_TARGMAT\_l  ;  FORMMl  6  ;  J  ]  +  i  FORMML 

5 ;!]]] 

[13]  +POOP 

[14]  STF«-S2,F>F£PMM[  iHOUTITEM  IpLJPT 

[15]  +SKIP  2x0  =  pLIST*-l  SUFFIX  LIST 

[16]  -+SKIP  lxFORMMV+-,I]>REP+REP+l 

[17]  -+LOOP 
V 


Figure  4,7  "WRITEOUT" 
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summarized  below. 


St  atement 


2-3 


4-5 


6-7 


8-9 


Effect 

The  first  FNEXT-1  columns  of  FORMM 
correspond  to  the  format  items  to  be 
used,  I  increases  cyclically,  never 
exceeding  FNEXT-1 , 

FORMMl 5 ; J]  is  normally  a  field  width. 
It  can  be  zero  only  if  the  Ith  column 
represents  a  replicator.  The  value  of 
the  replicator  (row  4)  is  compared  to 
REPTAB [ J ; 2 ] ,  which  indicates  how  many 
times  the  parenthesized  portion  has 
been  traversed. 

If  the  parenthesized  list  is  to  be 
executed  again,  the  incremented  value 
K  is  stored  in  REPTAB IJ ; 2 ]  and  I  is 
reset  to  the  column  corresponding  to 
the  first  format  item  of  that  list. 

If  -t  FORMML 1 ;  J]  =  0  ,  spaces  are  to  be 
entered  (e,g. ,  FORTRAN  "3XM)» 


■ 
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Statement 


Effect 


11-12  If  FORMML^‘,I1  =  0 ,  a  literal  (Hollerith) 

field  is  indicated.  TARGMATll  con¬ 
tains  the  indices  which  indicate  the 
contents  of  the  field. 

14-15  A  representation  is  catenated  onto  STR. 

Exit  if  the  list  is  empty. 

16-17  Skip  backwards  to  statement  14  if  the 

replicator  for  this  format  item  is  not 
satisfied.  Otherwise,  branch  to  state¬ 
ment  2,  to  increment  J. 

4 . 4  Evaluation  and  Possible  Future  Extensions 

The  system  of  algorithms  called  UFL  is  designed  to  analyze, 
and  to  translate  into  a  "universal”  target  language,  any 
statement  from  a  format  language  for  which  the  rules  of  syn¬ 
tax  and  semantics  have  been  specified  in  a  suitable  form. 
Reasonably  complete  subsets  of  the  format  languages  of  both 
Fortran  and  PL/1  have  been  analyzed  in  this  manner,  demonst¬ 
rating  the  feasibility  of: 

1.  Syntax-directed  analysis  of  format  languages. 

2.  A  generalized  format  language,  into  which  other  format 
languages  can  be  translated. 
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The  principal  features  of  these  two  format  languages 
which  can  not  yet  be  processed  by  UFL  are: 

1,  Carriage-control  format  items. 

2,  Any  input  format . 

3,  PL/1  format  items  where  one  or  more  of  the  integers 
specifying  the  replicator,  field  width,  number  of 
decimal  places,  etc.  are  replaced  by  arithmetic 
expressions  to  be  evaluated  at  execution  time. 

The  first  two  of  these  limitations  result  from  the  lack 
of  an  external  data  set  upon  which  the  representations 
described  by  a  format  item  could  be  stored.  The  present 
version  of  WRITEOUT  (Figure  4.7)  constructs  and  displays  a 
character  string  containing  the  representations  specified  by 
the  portion  of  TARGMAT  which  is  being  used  as  an  output  for¬ 
mat.  This  character  string  could  be  encoded  upon  DATASET  if 
the  DATA  and  UFL  systems  could  be  combined,  and  input  operations 
between  DATASET  and  CORE  could  also  be  performed  under  format 
control.  Carriage  control  format  items  could  be  defined  as 
well.  The  third  limitation  could  also  be  partially  overcome 
by  combining  DATA  with  UFL.  A  DATA  identifier  (but  not  an 
arithmetic  expression)  could  be  allowed  to  appear  in  a  PL/1 
format  item  to  be  evaluated  at  execution  time.  Clearly,  the 
UFL  notation  would  have  to  be  extended  to  allow  this  flexibi¬ 
lity,  but  the  basic  organization  would  not  have  to  be  changed. 

Ideally,  a  generalized  format  language  should  be  general 
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PRINT*-  0 


PLFORM  '  (£’(13,4,6)  ,5(3)  ,  P  ’  ’ - ,9997.99’ 


54 75  5555? 

NO 

WRITEOUT 

“25.9  "25 . 9 

-2  5  .  90005+00 

-.025.90 

WRITEOUT 

1.22258  1,22258 

12  .  22005+07 

2200,000.00 

WRITEOUT 

18.278  18.278  18,278 

18  .  27805+00 

018.27  18.27805+00 

FORTFORM 

’  (25,  ‘  » START '  5 ,25 s 13 ,513 . 4)  ’ 

SAVE  CODE? 

NO 

WRITEOUT 

"13  2  3  45~  9 

START  -13 

0 . 23405-06 

WRITEOUT 

“137  “137  24 

START  *** 

-0.13705  03  START  24 

Figure  4.8  Sample  Output 


■ 

' 


- 


' 


' 


62 


enough  to  represent  any  format  item  which  will  ever  sub¬ 
mitted  for  parsing.  That  is,  it  should  be  possible  to  freeze 
the  rules  of  the  language  without  ruling  out  the  possibility 
of  translating  any  future  format  item  into  it.  Although  this 
ideal  is  not  likely  to  be  reached,  it  does  suggest  a  direction 
for  future  work. 
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CHAPTER  V 


CONCLUSION 

5 . 1  Languages 

The  usage  of  the  terms  language,  syntax  and  semantics  in 
this  thesis  is  more  general  than  usual.  Data  items,  data 
structures  and  format  statements  are  all  represented  in  a 
computer  memory  in  very  similar  forms.  The  system  of  assign¬ 
ing  meaning  to  each  of  these  three  classes  of  representation 
has  been  referred  to  as  a  language,  and  each  representation 
has  been  said  to  possess  syntactic  (structural)  properties 
and  semantic  properties  (associated  with  its  meaning). 

The  necessity  for  a  distinction  in  terminology  between 
the  structural  and  the  computational  (more  generally  the 
transformational)  properties  of  data  structures  has  been 
noted  by  Standish  (1967),  who  suggests  adoption  of  the  terms 
"data  structure"  and  "data  type".  For  example,  using  this 
proposed  terminology,  a  "class"  of  arrays  would  be  called  a 
data  structure,  while  a  class  of  arrays  which  can  undergo  a 
particular  set  of  transformations  would  be  called  a  data  type 
(That  is,  every  data  type  is  a  subset  of  a  data  structure.) 
For  a  particular  class  of  N  *  N  arrays,  some  possible  sets 
of  transformations  are: 

1.  Transposition,  indexing,  and  tests  for  equality  only 
e.g.,  an  alphanumeric  matrix. 
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2.  The  above  operations,  plus  all  arithmetic  and  logical 
operations.  e.g.,  a  numeric  matrix. 

3.  The  above  operations,  plus  computation  of  the  inverse, 
determinant  and  eigenvalues,  i.e.,  a  numeric  matrix 
which  represents  a  linear  transformation,  or  the 
coefficients  of  a  system  of  equations. 

Exactly  what  is  meant  by  a  "class”  is  not  made  clear,  but 
apparently  the  set  of  all  3*3  matrices,  for  example,  would 
be  called  a  data  structure,  and  the  subset  of  these  for  which 
eigenvalues  exist  would  constitute  a  data  type.  These  terms 
are  well-chosen  in  that  "structure"  suggests  the  arrangement 
of  the  symbols  of  a  representation,  and  "type"  suggests  in¬ 
herent  properties  which  are  not  necessarily  structural. 

However,  by  defining  each  data  type  in  terms  of  some  data 
structure,  we  rule  out  the  possibility  of  any  structure-less 
entity  such  as  a  number.  Any  number  can  undergo  addition 
and  multiplication,  whether  it  is  represented  in  binary, 
decimal  or  some  other  radix  (or  is  not  represented  at  all). 

That  is,  the  capacity  to  undergo  arithmetic  operations  is 
independent  of  structure.  It  is  a  property  of  the  number 
itself.  However,  a  number  is  not  a  data  type.  Only  parti¬ 
cular  representations  of  it,  that  is,  particular  data  struc¬ 
tures,  can  be  data  types, 

A  more  satisfactory  way  of  expressing  the  relationship 
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between  a  number  and  its  representations*  is  to  say  that  they 
have  most  semantic  properties  in  common,  for  example  a  number 
or  any  numeric  representation  can  undergo  arithmetic  operations. 
However,  while  a  representation  has  structure  and  therefore 
has  syntactic  properties,  a  number  has  neither., 

The  linguistic  terms  were  chosen  because  of  this  capacity 
to  describe  properties  of  an  abstract  quantity  as  well  as 
those  of  its  represent ations 0  The  terms  data  type  and  data 
structure,  as  defined  by  Standish,  tend  to  obscure  this 
distinction,,  Furthermore,  since  the  existing  linguistic 
terminology  is  adequate  for  the  description  of  representations, 
the  introduction  of  new  terms  is  not  justified.  The  use  of 
the  same  terminology  in  discussions  of  programming  languages 
and  data  representation  languages  is  highly  desirable  because 
of  the  basic  similarities  that  exist  between  data  and 
instructions  stored  in  memroy.  For  example,  the  semantic 
properties  of  a  Fortran  format  statement  which  is  to  be  pro¬ 
cessed  as  alphanumeric  data  include  the  properties  of  any 
alphanumeric  data,  i„e0,  the  capacity  to  undergo  assignment, 
tests  for  equality,  etc,  ,  as  well  as  the  capacity  to  initiate 
a  specific  data  conversion.  This  is  a  simple,  almost  trivial, 
example  of  a  program  modifying  itself.  (A  capability  which 
Perlis  (1966)  has  suggested  for  incorporation  into  Algol.) 

*  For  a  mathematical  approach  to  the  representation  of  data, 
see  Mealy  ( 1967 ) 0 
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5  o  2  N-Dimensional  Languages 

We  have  frequently  referred  to  a  language  as  a  system  of 
assigning  meaning  to  a  "string"  of  symbols,  and,  on  the  other 
hand,  we  have  referred  to  the  syntax  of  a  data  structure. 

The  objection  might  be  raised  that  an  array,  for  example,  is 
a  data  structure  which  consists  not  of  a  string  of  symbols 
but  of  a  rectangular  block  of  symbols,  and  that  the  termino¬ 
logy  of  linguistics  is  therefore  not  appropriate.  One  answer 
to  this  objection  is  that,  since  any  computer  memory  consists 
of  a  "string"  of  bytes,  any  structure  which  is  to  be  encoded 
in  memory  must  be  represented  as  a  string  of  characters,  A 
more  basic  answer  is  that  written  languages  need  not  be 
restricted  to  the  form  of  a  string.  Two-dimensional  arrange¬ 
ments  of  symbols  are  treated  as  languages  in  the  study  of 
graphic  displays  (see  the  "Non-Compiler  Applications"  section 
of  McIntosh  (1968) )0  Multi-dimensional  languages  might  also 
prove  useful  at  some  future  time, 

5  o  3  Input  and  Output 

Two  forms  of  I/O,  record-oriented  and  item-oriented,  have 
been  described  here.  They  were  first  given  names  by  the 
designers  of  PL/1,  although  they  had  existed  for  several 
years  in  Cobol  and  Fortran,  respectively.  Record-oriented 
I/O  is  usually  used  to  transfer  data  between  the  high-speed 
memory  of  the  computer  and  the  slower,  longer-term  "memory" 
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of  external  storage .  Item-oriented  I/O  is  more  interesting 
from  the  point  of  view  of  translation  between  "computer- 
readable"  and  "human-readable"  represent ations ,  A  remark 
by  Flores  (1966)  suggests  that  any  data  which  the  computer 
can  read  should  be  called  storage,  and  that  data  which  it 
cannot  read  (e»gt ,  hard  copy)  be  called  output.  The  processes 
which  occur  in  both  forms  of  I/O  are  essentially  alike,  the 
distinction  being  in  the  units  of  data  to  which  the  programmer 
has  access.  Fortran  binary  I/O  is  a  borderline  case  which  we 
have  called  item-oriented.  However,  the  statements  WRITE  ( 3 ) A 
and  READ  (3) A,  where  A  is  an  array,  are  in  fact  identical  to 
record-oriented  statements  in  every  way,  since  a  record  is 
referred  to  by  a  single  identifier  and  transmitted  without 
conversion.  (The  array  A  occupies  exactly  one  record  only  if 
its  total  length  in  bytes  is  equal  to  the  record  length  para¬ 
meter  specified  for  the  external  data  set.) 

5 . 4  A  Proposal  for  the  Standardization  of  Format  Languages 

A  format  item  describes  the  syntax  of  a  single  BCD  repre¬ 
sentation,  It  is  the  smallest  meaningful  unit  which  a  string 
of  symbols  can  represent  in  a  format  language.  A  format 
statement,  consisting  of  a  list  of  format  items,  is  used  by 
a  programmer  to  specify  the  arrangement  and  form  of  data 
representations  required  (on  output),  or  expected  (on  input) 
on  the  external  data  set.  The  design  of  the  format  language 
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therefore  affects  the  convenience  with  which  a  program  can 
be  written  and  the  input  data  prepared,, 

The  exchange  of  programs  between  computer  installations 
is  hampered  by,  among  other  things,  the  variations  which 
exist  between  different  implementations  of  any  format  language. 
For  example,  it  is  not  uncommon  for  a  Fortran  compiler  to 
employ  one  or  more  format  items  which  other  Fortran  compilers 
do  not  recognize o  Standardization  would  be  desirable  to 
ensure  that  all  implementations  of  each  format  language  were 
consistent  in; 

1.  The  set  of  permissible  format  items „ 

2.  The  representation  described  by  any  format  item. 

3.  The  action  to  be  taken  in  exceptional  cases,  such 
as  a  conflict  between  the  format  item  and  the  type 
declaration „ 

Ultimately,  a  single  format  language  might  be  adopted 
for  use  by  all  programming  .languages  which  use  item-oriented 
I/O,  including  Algol,  Fortran  and  PL/1,  and  possibly  other 
more  specialized  languages  such  as  list-processing  languages. 

Since  the  conversion  initiated  by  any  particular  format 
item  is  affected  by  the  internal  representation,  standardiza¬ 
tion  of  the  format  language  alone  will  not  bring  about 
complete  uniformity  of  results.  For  example,  the  decimal 
representation  of  a  fraction  may  terminate  while  its  binary 
representation  does  not  „  Output  of  such,  a  value,  using  a 
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format  language  which  truncates,  will  yield  a  result  which 
may  depend  upon  the  internal  representation. 

One  way  of  standardizing  a  language  is  to  designate  a 
particular  implementation  of  that  language  as  the  standard. 
This  ensures  that  the  consequence  of  any  possible  input  of 
instructions  or  data  is  defined.  By  contrast,  definitions 
of  programming  languages  frequently  define  only  the  con¬ 
sequences  of  "valid"  or  "permissible"  input.*  A  more  thorough 
discussion  of  the  problem  is  found  in  Lee  (1968). 

A  combination  of  the  UFL  and  DATA  models,  with  the 
extensions  described  in  Chapter  IV,  could  serve  as  the  basis 
for  a  "standard  implementation"  of  a  number  of  format  langu¬ 
ages.  Its  advantages  over  a  conventional  implementation  are: 

1.  It  employs  conversational  mode,  returning  immediate 
results  of  any  trial. 

2.  The  model  is  not  restricted  in  any  way  by  the  char¬ 
acteristics  of  either  the  "host"  computer  or  the 
external  storage  device,  since  both  are  represented 
by  matrices.  Therefore  byte  length,  word  length. 


*  For  example,  "Fortran  vs.  Basic  Fortran",  (Anon  (1964)) 
contains  the  following  passage: 

"1.2  Scope 

O  ©  0 

This  specification  does  not  prescribe: 

O  ©  0 

(4)  The  results  when  the  rules  for  interpretation  fail 
to  establish  an  interpretation  of  such  a  program." 
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etc.  can  be  chosen  with  complete  freedom. 

5 . 5  DATA  as  a  Teaching;  Aid 

The  DATA  model  could  be  useful  in  teaching  of: 

1.  Data  representations  in  a  computer  memory. 

2.  The  organization  of  memory,  and  meanings  of  terms 
such  as  byte,  field  and  record. 

3.  Input  and  output,  item-oriented  and  record-oriented. 

It  could  be  used,  for  example,  to  illustrate  these  concepts 
as  part  of  a  course  in  any  programming  language.  DATA, 
combined  with  UFL,  could  also  be  used  to  introduce  students 
to  format  languages,  although  these  are  comparatively  simple 
to  learn. 

The  arguments  in  favor  of  DATA  as  a  teaching  aid  are 
substantially  the  same  as  the  arguments  for  introducing  it 
in  the  first  place.  The  conversational  mode  will  encourage 
the  student  to  experiment,  even  to  the  point  of  modifying 
his  "copy"  of  the  model  itself.  For  example,  if  he  wishes 
to  change  the  byte  length  or  the  collating  sequence  and 
observe  the  results,  he  can  do  so  without  destroying  the 
model.  To  return  to  the  original  version,  he  need  only  re-load 
it  into  his  workspace.  Furthermore,  the  model  allows  him  to 
bypass  many  technical  details,  which  can  be  especially  trouble¬ 
some  on  I/O.  A  beginning  programmer  may  find  himself  in 
the  position  of  not  knowing  whether  his  control  cards,  program. 
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data,  or  all  three  are  in  error,  DATA  allows  him  to  dispense 
with  control  "cards"  altogether,  and  to  monitor  the  progress 
of  an  algorithm  as  closely  as  necessary.  For  example,  a 
field  or  a  record  might  be  displayed  after  each  step  to 
ensure  that  the  desired  changes  are  occurring. 
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A . 1  Numbers  and  Their  Representations 

A  positional  system  of  representing  numbers  is  one  in 
which  the  contribution  of  any  digit  depends  not  only  upon  the 
digit  itself,  but  also  upon  its  position  within  the  string. 

For  example,  in  the  evaluation  of  the  decimal  representation 
"223”,  the  values  of  the  digits  in  the  hundreds,  tens  and 
ones  positions  are  multiplied  by  "weights"  of  one  hundred, 
ten  and  one,  respectively.  By  contrast,  in  the  evaluation  of 
the  representation  "XCI"  in  Roman  numerals  (a  non-positional 
system) ,  the  "X"  is  given  a  weight  of  -1  because  of  its 
position  with  respect  to  the  "C",  but  its  position  with  respect 
to  the  string  as  a  whole  has  no  effect  upon  its  contribution. 
(Four  positional  representation  systems  are  described  by 
Lehmer  (1964).  One  of  these,  the  Chinese  or  modular  system, 
has  the  potentially  useful  property  that  truly  parallel 
arithmetic  can  be  performed  upon  it  because  no  carries  or 
borrows  are  propagated. ) 

The  discussion  to  follow  will  be  restricted  to  the  almost 
universal  polynomial  representation,  also  called  the  Arabic 
numeral  system.  Any  instance  of  a  polynomial  representation 
employs  a  radix  vector,  of  which  the  Ith  component  is  defined 
as  the  number  of  distinct  digits  any  one  of  which  may  appear 
in  the  Ith  digit  position  of  the  representation.  For  example, 
since  there  are  twelve  inches  in  a  foot  and  three  feet  in  a 
yard,  the  inches  and  feet  digit  positions  of  the  representation 
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of  a  length  have  radices  of  12  and  3,  respectively.  This  is 
an  example  of  a  "mixed  radix"  system.  We  shall  assume  all 
components  of  any  radix  vector  to  be  equal,  unless  otherwise 
indicated.  A  symbol  called  the  radix  point  may  be  used  to 
separate  the  fractional  and  integer  parts  of  a  representation. 
If  the  radix  point  is  omitted,  its  assumed  position  is  to  the 
right  of  the  rightmost  digit,  giving  the  representation  an 
integer  value.  Where  the  radix  is  ten,  the  radix  point  is 
called  the  decimal  point. 

The  process  whereby  one  representation  of  a  number  is 
replaced  by  another  representation  of  the  same  number  in  a 
different  radix  is  called  a  radix  conversion.  It  is  a  trans¬ 
formation  of  the  syntax  which,  ideally,  has  no  semantic  effect. 
However,  an  error  may  be  introduced  if  the  number  contains  a 
fraction  which  does  not  terminate  quickly  enough  when  repre¬ 
sented  in  the  new  radix.  The  following  table  illustrates 
the  fact  that  the  radix  used  in  representing  a  fraction  deter¬ 
mines  how  quickly  the  representation  terminates. 


Radix  10  8 

Number 
1+8 


2*5 


.1250 
.  400 


.1000 
.31463. . 
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Any  fraction  which  terminates  after  N  fractional  digits  when 
represented  in  radix  R1  also  terminates,  after  at  most  K  x  N 
fractional  digits,  when  represented  in  radix  R2 ,  and  vice 
versa,  if  there  exists  a  positive  integer  K  such  that 

t  R1  =  R2*K 

The  condition  is  sufficient  but  not  necessary.  For  example, 
the  fraction  1*2  terminates  after  one  fractional  digit  when¬ 
ever  the  radix  is  even. 

In  a  digital  computer,  data  is  represented  by  the  discrete 
states  of  a  number  of  bistable  storage  cells,  each  of  which 
contains  one  bit  of  information.  A  storage  unit  of  greater 
capacity,  the  register,  consists  of  a  logical  grouping  of 
cells.  A  register  which  is  to  represent  an  N-symbol  alphabet 
must  have  at  least  2  ®  N  bits  of  information  capacity,  that 
is,  it  must  contain  at  least  T2  ®  N  storage  cells.  Where 
the  number  of  cells  in  a  register  exceeds  the  required  informa¬ 
tion  capacity  (for  example,  where  2  ®  N  is  not  an  integer), 
the  probabilities  of  one  or  more  possible  register  values 
are  reduced  to  zero,  with  a  corresponding  loss  of  information 
capacity . 

An  example  of  an  alphabet  which  must  be  encoded  in  a 
computer  memory  is  the  set  of  decimal  digits.  Each  digit  has 
an  information  content  (assuming  equal  probabilities  )  of 
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2  ®  10  ,  or  approximately  3.322  bits.  To  be  capable  of 
encoding  any  decimal  digit,  a  register  must  contain  T3.322 
or  4  storage  cells.  Since  6  of  the  16  possible  values  of 
such  a  register  are  unused,  the  efficiency  of  utilization 
of  storage  is  100  x  3.322  -s-  4,  or  approximately  83$.  In 
other  words,  the  information  content  per  storage  cell  aver¬ 
ages  only  .83  bit.  This  system  of  encoding  each  digit  of  a 
decimal  representation  in  a  separate  register  is  called 
binary-coded  decimal,  abbreviated  BCD.  The  term  is  popularly 
used,  synonymously  with  "alphanumeric",  to  include  the  en¬ 
coding  of  alphabetic  characters  as  well  as  digits.  Where  the 
alphabet  consists  of  letters  as  well  as  digits,  a  minimum  of 
C 2  ®  3 6  ,  or  6  storage  cells  are  required  for  each  symbol. 

The  extra  (2*6)-36  characters  are  assigned  to  punctuation 
and  special  symbols. 

Although  the  binary  fixed-point  and  floating-point 
representations  described  in  the  following  sections  make 
more  efficient  use  of  storage  cells  than  BCD  does,  this 
saving  is  outweighed  in  some  applications  by  the  time  required 
for  decimal-t o-binary  and  binary-to-decimal  conversions. 

Computational  problems  may  be  grouped  into  two  general 
classes,  those  where  every  digit  is  considered  to  be  signifi¬ 
cant,  and  those  where  the  number  of  significant  digits  is 
limited  and  independent  of  the  magnitude  of  the  number  repre¬ 
sented.  Accounting  problems  are  typical  of  the  first  class. 
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Every  amount  must  be  correct  to  the  nearest  cent,  and  is, 
in  effect,  an  integral  number  of  cents.  The  largest  amount 
which  can  be  represented  is  therefore  limited  by  the  number 
of  digit  positions  in  the  representation. 

Problems  involving  the  results  of  physical  measurements 
belong  to  the  second  class.  A  measurement  is  never  exact, 
but  the  maximum  relative  error  is  likely  to  be  approximately 
the  same  for  each  of  a  group  of  related  measurements.  The 
systems  of  representation  which  have  developed  for  these  two 
classes  of  problems,  the  fixed-point  and  the  floating-point 
systems  respectively,  are  discussed  in  the  following  sections. 

A. 2  Fixed-Point  Representations 

The  previous  section  assumes  that  the  reader  is  already 
familiar  with  the  fixed-point  notation  and  is  aware,  for 
example,  that  the  order  of  increasing  weights  is  from  right 
to  left.*  Otherwise,  terms  such  as  "hundreds  position"  and 
"tens  position"  would  be  meaningless.  This  section  discusses 
the  fixed-point  notation  in  more  detail. 

If  we  designate  by  D  the  vector  of  digits  representing  an 
unsigned  integer  in  radix  A,  the  polynomial  by  which  its  value 
is  computed  is 


*  The  convention  that  weights  increase  from  right  to  left  is 
inconsistent  with  the  practice  of  reading  from  left  to  right. 
Possibly  it  originated  with  the  Arabs,  from  whom  the  system 
takes  its  name.  (Lehmer  (1964)), 
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+  /D  x  R* ( pD )  -  i p D  . 

The  largest  Integer  which  can  be  represented  is 


1  +  R* p  D  , 


which  occurs  when 

h/D  =  R  -  1  . 

For  the  more  general  case  where  there  are  N  fractional  digits 
(and  -t  N- 0 )  ,  the  contribution  of  each  digit  is  divided  by 
R* N  0  The  polynomial  becomes 

+/D  x  R*(pD)  -  N  +  ip D 

and  the  largest  representable  number  becomes 

(  ”  1 +R *  pD  )  -r  R*N 

We  have  not  yet  considered  the  representation  of  negative 
numbers .  Since  the  sign  of  a  number  is  two-valued,  we  shall 
assume  that  the  leftmost  digit  has  a  radix  of  two,  with  a  1 
indicating  minus  and  a  0  indicating  plus.  The  range  of  inte¬ 
ger  values  will  now  be 
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1 -R*N  -  1  to  1 +R*  N - 1  , 

including  +0  and  -0  as  distinct  values.  The  general  expression 
for  the  value  of  a  register  becomes 

(  1  -  2  xZ?  [  1  ]  )  x  +/Z?[  1+ i'l  +  pZ?]  x  R*N  -  1  +  i""l  +  p  D  . 

Another  common  method  of  representing  negative  numbers  is 
to  use  one  of  the  two  "complements"  of  the  number: 

The  radix-minus-one  complement  of  the  number  C,  repre¬ 
sented  (with  radix  of  R)  as  is  defined  as 

(~1 +R*N)-C  ,  It  is  formed  by  subtracting  each  digit  from  R- 1. 

The  true  complement  of  the  number  C  is  defined  as 
( R*N)-C .  It  is  formed  by  adding  1  to  the  radix-minus-one 
complement , 

The  sign  digit  is  treated  as  a  binary  digit,  regardless 
of  the  radix  used.  For  example,  when  the  other  digits  are 
subtracted  from  R-l  in  forming  the  complement,  the  sign  digit 
is  subtracted  from  1.  When  an  addition  is  to  be  performed, 
negative  numbers  are  complemented  (if  they  are  not  already 
in  complement  form),  the  addition  is  performed,  and  the 
result,  if  negative  is  complemented  (unless  it  is  to  be 
stored  in  complement  form) ,  Subtraction  consists  of  comple¬ 
menting  and  adding.  This  is  the  advantage  of  the  complement 
notation  -  the  expense  of  a  subtraction  circuit  is  avoided. 


* 


■ 


■ 


. 


- 


i  r  ■  •  -  ■  •  '  ,  :  • 


t 


82 


If  a  carry  is  generated  from  the  sign  digit,  it  is  treated 
as  follows :  in  a  radix-minus-one  system,  add  one  to  . 

In  a  true  complement  system,  drop  the  carry  digit. 

In  the  design  of  a  computer  which  is  capable  of  per¬ 
forming  arithmetic  upon  binary-coded  decimal  operands,  one 
of  the  factors  affecting  the  choice  of  a  code  to  represent 
the  decimal  digits  is  the  question  of  how  easily  the  appropri¬ 
ate  complement  can  be  formed.  Since  any  complemented  negative 
number  could  also  be  interpreted  as  some  uncomplemented 
positive  number,  the  sign  bit  is  still  required. 

A. 3  Floating-Point  Representations 

Scientific  notation  is  frequently  used  to  express  numbers 
for  which  the  fixed-point  representation  has  insufficient 
range,  or  would  require  an  inconvenient  number  of  leading  or 
trailing  zeros.  The  floating-point  representation,  an 
adaptation  of  scientific  notation,  serves  the  same  purpose 
in  a  computer  memory.  The  number  to  be  represented  is  con¬ 
verted  to  the  form 

F  x  e  *  E  ,  where  E  is  integer. 

We  shall  assume  a  normalized  representation,  with  a  fractional 
value  of  F ,  i „ e . , 


t  A/0  1 


F  >  1  ,  R*  1  . 
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Since  F,  the  radix  of  the  representation,  need  not  be  repre¬ 
sented  as  part  of  the  data  item,  the  floating-point  repre¬ 
sentation  consists  of  the  signed  fixed-point  representations 
of  E  and  F.  The  range  of  Es  and  therefore  the  range  of  the 
entire  representation,  is  restricted  by  the  number  of  digit 
positions  available  for  the  representation  of  E,  If  we 
designate  by  EMAX  the  largest  possible  absolute  value  of  F, 
then  any  number  A  such  that 

■t  (  \A)  >  R  *  EMAX 

is  too  large  to  be  represented  with  fractional  F,  and  is,  in 
effect,  infinite .  Similarly,  a  number  which  is  too  small  in 
absolute  value  to  be  expressed  in  the  form 

F  x  r  *  E  where  t  E  =  -  EMAX 

■b  F  >  0  , 

is  indistinguishable  from  zero  and  is  called  on  infinitesimal 
Clearly,  infinitesimals  and  infinite  "numbers"  exist  for  any 
floating-point  system  for  which  EMAX  is  finite.  Also,  if  we 
designate  by  N  the  number  of  digits  in  the  representation  of 
F,  then  the  smallest  detectable  increment  in  the  value  of 
F  x  r  *  e  (resulting  from  a  change  of  1  in  the  least  signifi 


cant  digit  of  F)  is 
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( RF*-N )  x  R  *  E  , 

where  RF  is  the  radix  used  in  representing  F.  The  unavoid¬ 
able  error  in  the  representation  is  bounded  by 

.5  x  ( RF*-N )  x  r  *  e  , 

which  approaches  zero  as  N  increases. 

Since  any  floating-point  (or  fixed-point)  representation 
consists  of  an  integer  with  a  scale  factor,  only  rational 
numbers  can  be  represented  without  error.  Where  N  is  finite, 
the  range  of  representable  numbers  is  restricted  further,  to 
some  subset  of  the  rational  numbers.  Consequently,  the 
results  of  computer  arithmetic  do  not  always  conform  to 
mathematical  results.  Cody's  attempts  to  find  the  identity 
element  under  floating-point  multiplication  illustrate  this 
anomaly.  (Cody  (1967)).. 
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CHAPTER  B1 


INTRODUCTION 

This  Programmer’s  Guide  describes  the  DATA  language  in 
detail.  The  reader  is  assumed  to  be  familiar  with  APL, 
though  not  necessarily  proficient  in  it.  DATA  appears  to 
the  user  as  an  implementation  of  a  simple  conversational 
programming  language.  Physically,  it  resides  entirely  within 
one  APL  workspace. 

B.1.1  Definitions  of  Terms 

Data  Item  -  A  single  number  or  non-numeric  "value”. 

Memory  -  A  storage  area  within  the  computer,  accessible 
by  the  program. 

Data  Set  -  A  collection  of  data,  outside  of  memory, 

(i.e„,  not  directly  accessible  by  the  program). 
There  are  three  data  sets,  identified  by  the 
integers  1,  2  and  3- 

Field  -  The  portion  of  memory,  or  of  a  data  set,  which 

encodes  a  single  data  item.  The  portion  of  memory 
to  which  an  identifier  refers. 

Picture  -  An  expression  which  specifies  the  representation 
to  be  assigned  to  a  particular  field. 
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Record  -  A  group  of  fields .  A  single  record-oriented 
I/O  statement  causes  one  record  to  be  made 
accessible  to  the  program  (input),  or  to  be 
designated  for  transmission  to  a  data  set 
( output ) o 

I/O  -  Input  or  output  or  both.  Any  transfer  of  data 
between  memory  and  a  data  set . 

Byte  -  A  single  storage  location,  either  in  memory  or 
in  a  data  set.  A  byte  contains  6  bits. 

Character  -  The  contents  of  any  byte.  Any  one  of  the  64 
possible  combinations  of  6  binary  digits  (bits) 

Character  Set  -  The  ordered  set  of  graphic  symbols  repre 
sented  by  characters.  The  DATA  character  set 
consists  of  the  vector  DATASEQ ,  where 

t  a/ DATASEQ  =  '  ABCDEFGHIJKLMNOPQRSTUVWXYZol?  ,  . 

0123456789()[]+-xi=/*'J12p,o» 

For  the  character  which,  interpreted  as  an  unsigned  binary 
integer,  yields  the  value  Nt  the  corresponding  symbol  is 
DATASEQZN+1 ] .  The  "°n  entries  in  DATASEQ  indicate  characters 
to  which  no  symbol  has  been  assigned. 
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B.1.2  Memory  Organization 

The  memory  contains  several  record-areas,  each  of  which 
can  accommodate  a  single  record  of  any  length  up  to  a  maximum 
of  63  characters.  These  record-areas  are  referenced  by 
numbers.  Execution  of  the  statement  " DECLARE  N "  (see  Chapter 
B2 :  Declarative  Statements)  ensures  that  at  least  N+l  record- 
areas  exist,  numbered  0,1  Although  there  is  no  specific 

limit  to  either  the  number  of  record-areas  which  can  be 
created,  or  the  number  of  records  which  can  be  written  into 
a  data  set,  the  total  storage  available  for  memory,  data  sets 
and  computations  is  limited  by  the  size  of  the  APL  workspace. 

B.1.3  Data  Representations 

Any  field  contains  a  sequence  of  bits.  The  interpretation 
of  those  bits  depends  upon  the  picture  item  associated  with 
the  field.  The  four  systems  of  representing  data  are: 

Binary  Fixed-Point  -  The  corresponding  picture  item  con¬ 
tains  Z's  or  9's  or  both;  a  V  is  optional;  a 
+  or  a  -  is  optional;  A,  X  and  .  are  not 
permitted „ 

A  binary  fixed-point  field  can  represent  any  number  which 
can  be  represented  by  replacing  all  Z's  and  9's  of  the  pic¬ 
ture  item  by  decimal  digits,  replacing  the  V  (if  any)  by  a 
decimal  point,  and  replacing  the  +  or  -  by  a  sign.  If  there 
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is  no  decimal  point,  the  value  is  an  integer.  If  there  is 
no  sign,  it  is  positive  or  zero. 

Table  B.2  of  the  appendix  to  this  Programmer's  Guide 
shows  the  field  lengths  required  for  any  number  of  decimal 
digits.  The  table  is  always  correct,  and  is  adequate  for 
the  majority  of  programming  problems.  However,  a  more  precise 
statement  follows  for  the  benefit  of  more  experienced  programmers 
Where  the  field  length  is  N  bytes,  and  S  has  the  value 
1  if  there  is  a  sign  and  0  otherwise,  the  largest 
absolute  value  which  the  field  can  represent  is 
~1  +  2  *  ( ~S )  +  6  x  n3  assuming  there  is  no  V  in  the 
picture  item.  If  there  is  a  7,  with  M  digit  positions 
to  the  right  of  it,  the  above  expression  must  be  divided 
by  10  *  A/. 

For  example,  where  the  picture  item  is  "9",  the 
integers  0  to  63  can  be  represented.  Where  the  picture 
item  is  "+9",  the  range  is  -31  to  +31. 

Binary  Floating-Point  -  The  corresponding  picture  item 
contains  Z's  or  9's  or  both;  one  .  or  one  X  or 
both;  a  +  or  a  -  is  optional;  R  and  V  are  not 
permitted.  (X  may  be  read  as  "times  10  to  the 
power".)  If  we  disregard  all  characters  to  the 
right  of  the  X,  if  any,  the  number  of  remaining 
digit  positions  (Z  or  9)  in  the  picture  item  is 
the  number  of  significant  figures  required. 
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A  binary  floating-point  field  can  represent  any  number 
with  absolute  value  between  8  *  -64  and  8  *  63,  or  zero. 

(That  is,  between  2.6  x  10  *  “52  and  6.0  x  10  *  50.)  Either 

5  or  9  significant  figures  are  carried,  depending  upon  the 
picture  item. 

Alphanumeric  -  The  corresponding  picture  item  contains 
one  or  more  a*s„  Each  a  represents  a  member 
of  the  character  set  (defined  in  a  previous 
section),  encoded  in  one  byte. 

Binary-Coded  Decimal  (BCD)  -  The  corresponding  picture 
item  contains  ZTs  or  9’s  or  both,  and  an  R, 

(The  R  suggests  "report",  since  BCD  fields  can 
be  printed  without  conversion. ) 

A  BCD  field  is  similar  to  an  alphanumeric,  except  that 
the  arrangement  of  characters  (decimal  digits,  decimal  point, 
sign,  etc.)  must  form  a  valid  decimal  representation. 

B.1.4  Reserved  Words 

The  following  identifiers,  plus  the  function  names  listed 
in  Appendix  C,  part  1,  are  reserved  words  which  may  not  be 
redefined  by  the  programmer,, 
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BUF 

CHARSET 

CORE 

DATASEQ 

DATASET 

END 

ENDFILE 
I  DENT 
INDEX 
IT EMIN 
ITEMOUT 
OUT 

OUTPTR 

PICT 

RANK 

RE  CL 

TABLE 

TALLY 
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CHAPTER  B2 


DECLARATIVE  STATEMENTS 

A  declarative  statement  is  used  to  subdivide  one  record- 
area  of  memory  into  fields,  and  to  assign  an  identifier  and 
a  picture  (i.e.,  a  description  of  an  internal  representation) 
to  each  field.  The  declarative  statement  is  initiated  by 
input  of  either  (a)  DECLARE  INITIAL  integer  or  (b)  DECLARE 
integer,  where  "integer"  is  the  record-area  number.  State¬ 
ment  (a)  will  cause  deletion  of  all  previously-defined 
fields  in  that  record-area.,  Statement  (b)  will  allow  additional 
fields  to  be  defined,  without  affecting  those  which  are  defined 
already . 

In  response  to  input  of  statement  (a)  or  (b),  the 
keyboard  will  unlock  to  accept  input  of  an  identifier.  The 
procedure  for  creation  of  fields  is  as  follows: 

1.  When  the  keyboard  unlocks,  (if  more  identifiers  are 
to  be  defined  in  this  record-area)  type  the  desired 
one-character  identifier,  followed  by  a  "°"  if  it 
is  to  reference  an  array.  If  no  more  identifiers 
are  to  be  defined,  exit  by  typing  an  immediate 
carriage  return. 

If  an  array  is  being  defined,  proceed  to  step 

(2). 

Otherwise,  to  to  step  (3). 


- 

' 


■ 


' 


. 


j 


. 


93 


2.  When  appears,  type  the  rank  vector  of  the  array, 

of  not  more  than  three  elements.  (An  empty  rank 
vector  will  nullify  the  effect  of  the  ,  and  yield 
a  scalar. ) 

3.  When  the  keyboard  unlocks,  type  the  picture  specifica¬ 
tion  of  the  desired  internal  representation  of  the 
field  (a  single  element,  if  an  array).  The  picture 
language  is  defined  in  the  appendix  to  this  Program¬ 
mer’s  Guide. 

4.  If  the  argument  of  the  initiating  statement  was  0, 
to  to  (1) . 

Otherwise,  when  appears,  type:  the  number 

designating  the  position,  within  the  record,  of  the 
first  character  of  this  field;  or  a  vector  of  integers 
specifying  the  positions  of  all  characters  of  this 
field;  or  a  list,  enclosed  in  quotes,  of  identifiers 
already  defined  in  this  record-area  which  are  to  be 
included  hierarchically  under  this  identifier. 

5.  Go  to  (1). 

In  record-area  0,  the  user  cannot  specify  the  position 
of  a  field  (step  (4),  above),  and  is  thereby  freed  from 
responsibility  for  computing  the  length  in  memory  of  each 
field  he  defines.  This  record-area  is  provided  to  allow 
definition  of  fields  which  are  not  inherently  part  of  any 
record.  Since  the  identifiers  referencing  these  fields  never 
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require  qualification,  they  are  valid  operands  for  GET  and 
PUT  statements.  (See  the  chapter  on  Assignment  Statements 
for  a  discussion  of  qualified  identifiers.) 

Execution  of  the  statement  " CLEAR APICTURES"  deletes  all 
fields  which  have  been  defined  in  any  record-area. 

Execution  of  the  statement  " SHOWPICTURES  integer",  where 
"integer"  is  a  record-area  number,  causes  a  table  to  be 
printed  showing  all  the  identifiers  defined  in  that  record- 
area,  with  the  picture  item,  field  length  and  position,  and 
rank  vector  (if  any)  for  each. 
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CHAPTER  B3 


ASSIGNMENT  STATEMENTS 


Any  assignment  statement  of  the  DATA  language  contains 
one  or  more  of  the  words : 

MO  VETO 

MO VEABYANAMEATO 

ASSIGNATO 

CONTENTSOF 

BLANKARECORD 

OF 

SUB 

The  purpose  of  an  assignment  statement  is  to  retrieve  the 
contents  of  one  or  more  fields  in  memory,  or  to  assign  new 
contents  to  those  fields .  The  effect  of  each  form  of  assign¬ 
ment  statement  is  described  in  the  following  paragraphs. 

identifier-1  MOVETO  identifier-2  -  The  contents  of  the 
source  field,  referenced  by  identifier-1,  are 
moved  into  the  receiving  field,  referenced  by 
identifier-2.  The  contents  of  the  source  field 


are  left-justified  in  the  receiving  field,  and 
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truncated  or  filled  with  binary  zeros*  if  the 
lengths  are  different.  The  picture  items  for 
the  two  fields  are  not  checked.  If  they  are 
different  (especially  in  length),  unexpected 
results  are  likely  to  occur. 

record-area-1  MOVE  ABY  ANAME  ATO  record-area-2  -  This  state¬ 
ment  is  equivalent  to  a  series  of  MOVETO  state¬ 
ments,  one  for  each  identifier  which  is  defined 
in  both  record-areas.  For  example,  if  identi¬ 
fiers  A ,  B  and  C  are  defined  in  record-area-1 
and  Af  Cy  D  and  E  are  defined  in  record-area-2, 
only  the  fields  referenced  by  A  and  C  will  be 
moved . 

(APL  expression)  ASSIGN ATO  identifier  -  The  result  of 

evaluation  of  the  APL  expression  is  encoded  in 
the  form  specified  by  the  picture  item  corres¬ 
ponding  to  the  identifier,  and  stored  in  the 
field  reference  by  it.  The  result  of  the 
expression  must  be  a  numeric  scalar  if  the 
picture  item  is  numeric,  or  a  character  scalar 
or  vector  if  the  picture  item  is  alphanumeric.  . 


*  Binary  zeros  have  the  effect  of  setting  binary  numeric  fields 
to  zero,  and  filling  alphanumeric  and  BCD  fields  with  blanks. 
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In  the  latter  case,  the  vector  will  be  left- 
justified  in  the  field  and  truncated  or  blank- 
filled  on  the  right  if  the  length  of  the  vector 
is  not  equal  to  the  length  of  the  field. 

X+CONTENTSOF  identifier  -  The  APL  variable  X  will  assume 
the  value  of  the  numeric  scalar,  or  character 
scalar  or  vector  referenced  by  the  identifier. 
Since  " CONTENTSOF  identifier”  is  an  APL  expres¬ 
sion,  it  may  appear  as  the  left-hand  argument 
of  an  ASSIGN ATO  statement  (above).  For  example, 

( CONTENTS  OF  ’ B '  )  ASSIGN ATO  'A ' 

is  similar  to  B  MOVETO  A  except  that  in  the 
former  case  the  picture  items  associated  with 
both  identifiers  are  used  to  perform  a  data 
conversion . 

B  LANKARECORD  integer  -  Record-area  number  "integer”  will 
be  filled  with  binary  zeros,  that  is,  binary 
numeric  fields  will  be  set  to  zero  and  BCD  and 
alphanumeric  fields  will  be  blanked. 

OF  -  Is  used  to  qualify  an  identifier.  That  is,  where 
the  same  identifier  is  defined  in  two  or  more 
record-areas,  a  reference  to  it  may  be  qualified 
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by  the  word  " OF "  followed  by  the  record-area 
number.  For  example,  ’ A '  OF  2  and  ' A ’  OF  1 
reference  two  different  fields.  (A  qualified 
identifier  often  must  be  parenthesized  because 
of  the  right-to-left  rule  of  APL. )  An  unqualified 
identifier  is  assumed  to  refer  to  the  lowest- 
numbered  record-area  for  which  that  identifier 
is  defined.  As  a  result,  identifiers  in  record- 
area  0  never  require  qualification.  All  the 
identifiers  referred  to  in  the  above  paragraphs 
may  be  qualified  or  unqualified. 

SUB  -  Is  used  to  index  an  identifier.  Any  identifier 
which  references  an  alphanumeric  array  may 
appear  with  or  without  indices  in  an  assign¬ 
ment  statement.  The  identifier  without  indices 
references  the  character  vector  consisting  of 
the  array  elements  in  row-major  order.  Each 
element  of  an  array  M  is  a  character  scalar 
or  vector  (depending  upon  the  picture  item). 

Any  one  element  may  be  referenced  by  the 
identifier  and  pp M  indices.  For  example, 
where  M  is  defined  as  a  3x2  matrix  (in  record- 
area  0),  described  by  picture  item  ”[2]an,  the 
following  statements  might  be  executed: 


.  ■ 
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' AB  CDEFGHIJKL ’  ASSIGN LTO  'M' 

□  +  CONTENTSOF  ' M'  SUB  3  2 

KL 

□  «-  CONTENTS  OF  'M' 

AB CDEFGHIJKL 

□  «-  CONTENTSOF  '  M'  SUB  1  2 

CD 

A  qualified  identifier  may  be  indexed  as 
well.  If  M  had  been  defined  in  record-area  2, 
these  statements  might  be  executed: 

'PQ'  ASSIGN LTO  ('M'  OF  2)  SUB  2  2 
□  CONTENTSOF  '  M'  OF  2 
ABCDEFPQIJKL 

Although  numeric  arrays  may  be  defined,  the 
present  version  of  DATA  requires  every  appearance 
of  an  identifier  referencing  such  an  array  to 
be  indexed.  That  is,  only  a  single  element 
may  be  referenced  at  one  time,  and  the  advantage 
of  the  array  is  lost.  The  use  of  numeric  arrays 
is  therefore  not  recommended  and  will  not  be 


discussed  further. 
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CHAPTER  B4 


INPUT  AND  OUTPUT  STATEMENTS 


Transmission  of  data  from  a  data  set  to  memory  is  called 

input,  and  the  inverse  operation  is  called  output.  The  abbre 

viation  I/O  refers  to  input  or  output,  or  both.  Two  forms  of 

I/O  are  provided,  called  item-oriented  and  record-oriented. 

The  item-oriented  input  and  output  statements  are, 

respectively,  GET  list  and  PUT  list,  where  "list"  is  a 

character  vector  consisting  of  one  or  more  unqualified,  un- 

subscripted  identifiers,  (Record-area  0  is  provided  for  this 

purpose,  although  other  record-areas  may  also  be  used.  See 

the  chapter  on  Assignment  Statements,)  The  order  in  which 

identifiers  appear  in  the  vector  corresponds  to  the  order  in 

which  fields  are  arranged  on  the  data  set.  On  input,  the 

Nth  field  retrieved  from  a  data  set  by  a  particular  GET  state 

t  h 

ment  is  transmitted  to  the  field  referenced  by  the  N 

identifier  in  the  argument  of  that  statement.  On  output, 

■f"  v*» 

the  N  identifier  determines  (by  means  of  its  picture  item 
and  the  contents  of  the  field  referenced  by  it)  the  contents 
of  the  Nth  field  transmitted  to  the  data  set. 

A  statement  of  the  form  "ITEMIN+-N"  (where  Ne\  3)  must 
be  executed  to  specify  which  data  set  is  to  be  accessible  to 
item-oriented  input  statements.  A  field  in  that  data  set 
consists  of  a  group  of  non-blank  characters  surrounded  by 
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blanks.  The  representation  employed  must  be  alphanumeric  or 
BCD.  Fields  must  be  separated  by  blanks  (except  that  the 
end  of  a  record  may  serve  as  the  closing  delimiter  of  a 
field),  and  must  contain  no  imbedded  blanks.  Such  a  data 
set  may  be  created  by  a  program,  or  by  execution  of  a  sequence 
of  STACK  statements  (see  Chapter  B5). 

A  programmer  who  is  familiar  with  the  binary  representations 
used  in  DATA  can,  in  some  cases,  use  a  GET  statement  to  access 
a  data  set  which  contains  binary  fixed-point  or  floating-point 
fields.  However,  since  the  binary  representation  of  zero  is 
identical  with  the  alphanumeric  representation  of  a  blank, 
the  current  value  of  any  binary  field  would  affect  the  ’'length” 
of  that  field  and,  therefore,  the  correctness  of  the  results. 

A  statement  of  the  form  ITEMOUT+N  must  be  executed  to 
specify  the  output  data  set.  The  picture  item  associated  with 
each  identifier  determines  the  representation  to  which  the 
contents  of  the  field  referenced  by  that  identifier  are  to 
be  converted.  (See  the  Chapter  on  Declarative  Statements 
for  a  description  of  the  picture  language,  used  as  an  output 
format  language.)  Blanks  are  added  to  the  left  and  right  of 
each  field  (before  transmission  to  the  data  set)  for  read¬ 
ability  if  the  data  set  is  to  be  printed,  and  to  serve  as 
delimiters  if  it  is  later  used  for  item-oriented  input.  In 
the  latter  case,  imbedded  blanks  within  any  field  must  be 


avoided . 
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The  fields  specified  for  output  are  not  transmitted  one 
by  one ,  but  are  collected  and  grouped  in  a  portion  of  memory 
called  a  buffer.  The  groups  of  fields,  called  records,  are 
transmitted  to  the  data  set.  After  execution  of  the  final 
PUT  statement,  the  statement  CLOSE AFILES  must  be  executed  to 
transmit  as  a  final  record  the  fields  which  remain  in  the 
buffer.  The  statement  PRINT  ITEMOUT  may  then  be  executed  to 
cause  the  contents  of  the  data  set  created  by  item-oriented 
output  to  be  displayed  at  the  terminal.  (See  Chapter  B5 , 
Control  Statements.) 

Note  that  there  is  no  connection  between  the  grouping  of 
fields  into  records  and  the  grouping  of  identifiers  into  GET 
and  PUT  statements.  For  example,  the  sequence  of  statements 


verb  ’A’ 
verb  ' BCD' 
verb  'EF' 

is  exactly  equivalent  to  the  single  statement 

verb  ' ABCDEF ' 

where  "verb”  is  either  GET  or  PUT. 

A  record-oriented  I/O  operation  transfers  a  single  record 
from  a  data  set  to  memory,  or  vice  versa..  Identifiers  and 
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picture  items  do  not  have  any  effect,  since  no  conversion  is 
performed.  While  the  record  resides  in  memory,  the  programmer 
can  use  an  identifier  to  refer  to  a  field  in  order  to  retrieve 
or  modify  its  contents.  The  picture  item  associated  with  that 
identifier  determines  the  conversion  (if  any)  which  is  required. 
These  identifiers  and  picture  items  are  defined  by  declarative 
statements  (see  Chapter  B2). 

Record-oriented  I/O  statements  are  of  the  form  N  verb  K, 
where  N  is  the  data  set  number,  K  is  the  record-area  number, 
and  "verb"  is  RE AD  AIR  TO  or  WRITEAFROM . 

Each  record-area  in  memory  is  large  enough  to  accommodate 
a  record  of  maximum  length.  Where  the  length  of  a  record 
which  is  read  from  a  data  set  is  less  than  the  maximum,  the 
remaining  characters  in  the  record-area  are  left  unchanged. 

On  output,  the  programmer  has  control  over  the  length  of 
each  record  which  is  transmitted.  Regardless  of  the  lengths 
and  positions  of  fields  which  have  been  declared,  any  record 
will  be  just  long  enough  to  include  the  rightmost  field  to 
which  a  value  has  been  assigned  since  the  last  execution  of 
a  WRITE AFROM  statement  referring  to  that  record-area.  For 
example,  execution  of  the  sequence  of  statements: 

(APL  expression)  ASSIGNATO  'X'  OF  K 
N  WRITEAFROM  K 


N  WRITEAFROM  K 


'  -  , 
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will  cause  only  one  record  (containing  at  least  the  one  field 
referenced  by  'X')  to  be  written  into  the  data  set.  The 
second  WRITE AFROM  statement  will  have  no  effect,  because  no 
new  data  has  been  assigned. 


. 


■ 
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CHAPTER  B5 


CONTROL  STATEMENTS 


The  statements  of  the  DATA  language  which  contain  the 
following  verbs  will  be  called  control  statements: 

REWIND 
PRINT 
ST  A  CK 

CLEARATAPES 

ENDFILE 

They  are  used  as  follows: 

REWIND  N  -  where  t  ^/iVei3,  is  used  to  reposition  one  or 

more  data  sets  to  their  initial  records.  After 
a  data  set  has  been  created  by  a  sequence  of 
output  statements,  it  must  be  rewound  in  order 
for  subsequent  input  statements  to  access  it. 

PRINT  N  -  causes  the  contents  of  data  set  N  to  be  dis¬ 
played  at  the  terminal,  one  record  per  printed 
line.  The  contents  of  the  data  set  will  be 
assumed  to  be  either  BCD  or  alphanumeric. 

The  printed  representations  of  binary  fixed- 
point  or  f loating-point  fields,  if  any,  will 
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be  unintelligible. 

The  entire  data  set  will  be  printed.  It 
is  not  necessary  to  rewind  either  before  or 
after  printing. 

N  STACK  string  -  where  N  is  the  data  set  number,  and 

"string"  is  a  character  vector  each  element 
of  which  is  a  valid  DATA  character  (i.e., 
a  member  of  the  character  set  DATASEQ.  See 
Chapter  Bl.)  The  STACK  statement  is  used  to 
prepare  a  BCD  and/or  alphanumeric  data  set  for 
input.  Since  each  execution  of  a  STACK  state¬ 
ment  adds  records  to  the  data  set,  it  must  be 
rewound  before  the  first  statement  and  again 
after  the  last.  The  "string"  may  contain  any 
number  of  characters  up  to  and  including  62. 

CLEARhTAPES  -  This  statement  has  the  effect  of  erasing 
and  rewinding  all  three  data  sets. 

-+ENDFILEIN1  /ENDJ OB  -  any  input  statement,  whether  record- 
oriented  or  item-oriented,  may  encounter  an 
end-of-file  condition,  that  is,  there  may 
not  be  sufficient  data  in  the  data  set  to 
satisfy  the  input  statements  which  are  executed. 
The  results  of  this  condition  are  as  follows: 


■ 
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Record-Oriented  -  The  record-area  of  memory  will  be 

unchanged,  and  the  global  variable  ENDFILEiNl 
(where  N  is  the  data  set  number)  will  be  set 
to  1  (its  value  is  0  otherwise). 

Item-Oriented  -  ENDFILEl ITEMIN']  will  be  set  to  1,  and  an 
end-of-file  message  will  be  printed  by  the 
terminal.  Where  the  argument  of  a  GET  state¬ 
ment  contains  more  than  one  identifier,  an 
end-of-file  condition  may  occur  after  some 
but  not  all  of  the  corresponding  fields  have 
been  assigned  new  values.  The  remaining  fields 
will  then  be  left  unchanged. 
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APPENDIX  TO  DATA  PROGRAMMER'S  GUIDE 


AB . 1  The  DATA  Picture  Language 

We  shall  refer  to  the  set  of  interpretation  rules  for 
DATA  picture  items  as  a  "picture  language".  When  a  value  is 
being  assigned  to  a  field,  the  corresponding  picture  item 
indicates  which  of  the  four  internal  codes  will  be  used.  On 
output,  the  picture  item  serves  as  a  format  statement  to 
describe  a  specific  BCD  representation. 

AB . 2  Syntax  of  the  Picture  Language 

The  rules  of  syntax  are  shown  in  Table  B.l. 

AB . 3  Semantics  of  the  Picture  Language 
AB . 3 . 1  Usage 

A  picture  item  may  specify  a  representation  in  memory 
(upon  execution  of  an  assignment  statement),  or  in  a  data 
set  (upon  execution  of  an  output  statement).  Interpretation 
is  as  follows: 

1.  Assignment  -  The  picture  item  for  any  field  is  used 
by  the  input  verb  GET  or  the  assignment  verb 
ASSIGN ATO  to  assign  a  value  to  that  field. 

A  picture  item  containing  an  "a"  indicates 
alphanumeric  data,  one  character  per  byte. 
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DIGIT  POSITION 

Z 

1  9 

DIGIT 

0 

1 1 

2  |  3 

4 

5 

6  1 

INTEGER 

d 

|  d 

1 

REPLICATOR 

[ 

1 

] 

INSERTION 

• 

1  v 

»l- 

EMPTY 

SIGN 

+ 

1  - 

EMPTY 

QUALIFIER 

T 

|  R 

EMPTY 

INTEGER  FIELD 

P 

|  2 

p  Ip 

6 

NUMBER  FIELD 

6 

|  6 

3  7 

NUMERIC 

4 

7 

4  7 

X 

4 

6 

ALPHANUMERIC 

a 

1  a 

9  |  2 

a 

PICTURE  ITEM 

8 

5 

9 

Table  B.l  Rules  of  Syntax  of  DATA 

Picture  Language 
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A  numeric  picture  item  which  does  not 
contain  an  "i?"  indicates  a  binary  fixed-point 
or  binary  floating-point  internal  representation. 
Since  each  "Z"  or  "9"  marks  a  decimal  digit 
position,  the  internal  representation  must 
be  capable  of  carrying  at  least  as  many  signifi¬ 
cant  (decimal)  digits  as  there  are  "Z's"  and 
"9's"  in  the  NUMBER  FIELD  part  of  picture  item 
(see  Table  B.l).  Table  B.2  shows  the  field 
length  corresponding  to  each  number  of  decimal 
digits . 

Where  the  picture  item  contains  an  nXn  or 
a  or  both,  and  no  "R",  the  internal  repre¬ 
sentation  will  be  binary  floating-point.  Where 
neither  "X" ,  nRn  nor  appear,  binary  fixed- 
point  is  indicated. 

Where  a  picture  item  contains  an  "i?" 
(standing  for  "report”,  to  suggest  a  repre¬ 
sentation  which  can  be  printed),  that  BCD 
representation  which  would  be  created  on 
output  using  the  picture  item  as  a  format 
item  becomes  the  internal  representation.  It 
occupies  one  byte  for  each  character  of  the 
picture  item  other  than  T,  R  and  V. 

Binary  floating-point  representations  are 
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Minimum 

Field  Length  in  Memory  (Bytes) 


Number  of 
Decimal  Digits 

Fixed-Point 

Floating 

-Point 

Signed 

Unsigned 

1 

1 

1 

4 

2 

2 

2 

4 

3 

2 

2 

4 

4 

3 

3 

4 

5 

3 

3 

4 

6 

4 

4 

7 

7 

5 

4 

7 

8 

5 

5 

7 

9 

6 

5 

7 

Table  B.2  Field  Lengths  of  Fixed-Point  and 
Floating-Point  Representations 
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always  signed.  A  binary  fixed-point  repre¬ 
sentation  is  signed  if  the  picture  item  con¬ 
tains  a  "+"  or  a  otherwise  it  is  unsigned. 

Note  that  the  absence  of  a  sign  may  affect 
the  field  length  (Table  B.2). 

2.  Output  -  The  picture  item  for  any  field  which  is  to 

be  output  using  a  PUT  statement  determines  the 
external  BCD  representation  which  will  be 
created.  Data  items  for  which  the  picture 
item  is  alphanumeric  or  BCD  are  transmitted 
without  conversion,  that  is  the  external 
representation  is  the  same  as  the  internal. 
Interpretation  of  a  picture  item  to  describe 
a  BCD  representation  is  as  follows: 

AB . 3 . 2  Digit  Positions 

A  "2"  indicates  a  digit  position  which  will  be  blank  if 
that  digit  is  a  leading  zero,  that  is,  if  it  is  zero  and 
there  are  no  non-zero  digits  to  the  left  of  it.  (A  Z  may 
not  appear  to  the  right  of  9  in  a  picture  item.)  Thus,  for 
example,  a  picture  containing  Z's  but  no  9’s  will  convert 
the  number  zero  to  a  blank  field. 

A  "9"  indicates  a  digit  position  which  must  contain  a 


digit,  never  a  blank. 
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AB . 3 . 3  Insertions 

indicates  a  blank  character  position. 

X  indicates  the  position  of  an  X ,  which  will  be  followed 
by  an  exponent  field. 

,  indicates  the  position  of  a  comma,  which  will  be 
relaced  by  a  blank  if  no  digits  appear  to  the  left  of  it. 

.  indicates  the  position  of  a  decimal  point  in  the 
representation . 

V  indicates  the  location  of  the  decimal  point,  for  the 
purpose  of  scaling.  However,  no  decimal  point  appears  in  the 
representation . 

AB.3.-4  Qualifiers 

T  indicates  truncation.  Absence  of  a  T  indicates  that 
the  result  is  to  be  rounded  away  from  zero,  that  is,  the 
absolute  value  is  rounded  up. 

AB  . 3 . 5  Signs 

+  indicates  the  position  of  a  plus  or  a  minus  sign. 

-  indicates  the  position  of  a  minus  sign  or  a  blank. 
Where  the  picture  item  does  not  contain  a  sign,  the 
absolute  value  of  the  data  item  will  be  transmitted. 
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Transition  Diagrams  and  APL  Functions 
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C . 1  Format  Languages 

Figures  C.l  and  C.3  contain  the  transition  diagrams  which 
have  been  chosen  to  represent  the  format  languages  of  Fortran 
and  PL/1.  An  arc  of  a  transition  diagram  may  be  identified 
by  either 

1.  An  integer,  referring  to  a  transition  diagram. 

2.  One  or  more  terminal  symbols,  any  one  of  which  may 
appear . 

Otherwise,  that  arc  represents  a  blank  path. 

Each  transition  diagram  is  identified  by  a  number.  Where 
multiple  exits  exist,  the  circle  representing  each  exit  node 
contains  another  number,  which  is  used  in  the  semantic 
analysis.  Matrix  representations  of  these  transition  diagrams, 
together  with  other  arrays  used  by  the  UFL  system,  are  also 
included  in  this  appendix. 
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2  INT  3  CODE 


Figure  C.l  Fortran  Transition  Diagrams 
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Figure  C.l  Continued 
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V  FORTFORM  FMT 


[1]  LANGCODE+- 1 

[ 2 ]  'SAVE  CODE ? ' 

[3]  +SKIP  ' Y  f  = IpD ,  '  ' 

[4]  FNEXT+l+MNEXT+O 

[ 5 ]  FORM+FMT 

[6]  TABLE+FORT TABLE 

[ 7 ]  CHINDEX+FORT CH INDEX 

[8]  CHARS+FORT CHARS 

[9]  TYPES+FTYPES 

[10]  NEXTITEM 
V 
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Figure  C»2  Fortran  Arrays 
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1  DIGIT 


2  INT 


3  ZEDS 


4  SEP 


5  GRP 


Figure  C.3  PL/1  Transition  Diagrams 
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7  SPEC 


8  ITEM 


Figure  C.3  Continued 
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9  UNIT 


11  LIST 


12  FORM 


Figure  C.3 


Continued 


V  PLFORM  FMT 

[1]  LAN  GCODE+2 

[2]  'SAVE  CODE?' 

[3]  +SKIP  ' Y' =lp  *  , '  ' 

[4]  FNEXT+l+MNEXT+O 

[ 5 ]  FORM+FMT 

[6]  TAB  LE+PLT ABLE 

[7]  CH IN DEX+PLC INDEX 

[8]  CHARS+PLCHARS 

[9]  TYPES+PLTYPES 

[10]  NEXT ITEM 

V 

PLCINDEX 

22  22  22  22  22  22  22  22  22 
24  32  34  34  34  34  34 

19  24  28  29  27  25  0 

PL  CHARS 

0123456789,. /B*YZS+ -PFEAX ( ) ’ 
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DIGT 

INT 

ZEDS 

SEP 

GRP 

PICT 

SPEC 

ITEM 

UNIT 

LIST 

FORM 


Figure  C.4  PL/1  Arrays 


t  •  •;*  m 


■ 


&  '  CSa*  Z':  W  Z 

\  '  '  ; 


. 

■ 

. 


■ 


. 


■ 


12  3 


1 

1 

1 

2 

3 

3 

3 

4 
4 
4 
4 

4 

5 
5 
5 
5 

5 

6 
6 
6 
6 
6 
7 
7 
7 

7 

8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
9 
9 
9 
9 
9 

11 

11 

11 

11 

12 

12 

12 


1 

2 

2 

1 

1 

2 

2 

1 

1 

1 

1 

2 

1 

1 

2 

3 

3 

1 

1 

2 

2 

2 

1 

2 

3 

2 

1 

2 

3 

3 

4 
1 
1 
6 
6 
1 
1 

7 

8 
9 
1 
1 
1 
2 
2 
1 
2 
3 
2 
1 
2 
3 


2 

3 

3 

2 

2 

3 

3 

2 

2 

2 

3 

3 

2 

2 

3 

4 
4 
2 
2 
3 
3 
3 
2 

3 

4 
4 
2 

3 

4 

4 

5 

6 
6 
8 

11 

7 

7 

8 
9 

10 

2 

3 

4 

5 

6 
2 

3 

4 
4 
2 

3 

4 


0 

1 

0 

1 

0 

i 

0 

0 

0 

0 

0 

1 

1 

1 

1 

1 

0 

0 

0 

1 

1 

0 

1 

0 

1 

0 

0 

0 

1 

1 

0 

0 

0 

0 

0 

0 

0 

0 

1 

0 

1 

1 

1 

1 

1 

1 

0 

1 

0 

0 

1 

0 


22 

1 

0 

1 

34 

3 
0 

2  5 
21 
32 
0 

4 

3 
2 

4 

5 
0 

24 

19 

2 

6 
0 
2 

21 
7 
0 
38 
2  7 

5 

6 

27 

19 
32 

28 
0 

20 
24 
2  8 

7 
29 

2 

12 

8 
8 

12 

9 

21 

11 

0 

2  8 
11 
29 


_0 

_1 

1 

2 

0 

3 

3 
0 
0 
0 

4 

4 
0 
0 
0 

5 

5 
0 
0 

6 
6 
6 
0 
0 
7 

7 
0 
0 
0 
0 

13 
0 
0 
0 

10 

0 

0 

0 

0 

8 
0 

14 

15 

16 
17 

0 

0 

11 

11 

0 

0 

12 


0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

19 

0 

0 

0 

0 

0 

0 

0 

9 

9 

0 

0 

9 

9 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

18 

0 

0 


Figure  C.5  "PLTABLE" 
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C . 2  Listing  of  Functions 
C.2. 1  The  DATA  Model 


Function  Name 

Page 

ALPHACODE 

133 

ALPH  ATOA CHAR 

132 

ASSIGN AT 0 

130 

BFLAAPL 

131 

BFXAAPL 

131 

BLANKARECORD 

130 

CLEARAPICTURES 

130 

CLEARATAPES 

130 

CLOSE AFILES 

128 

CODE AFR ACT 

132 

CONTENTSOF 

128 

DECLARE 

127 

ELEMENT 

131 

EMPTY ABUFFER 

135 

EPORTCODE 

133 

EXPANDK 

130 

EXTERNAL 

132 

EXAFORMAT 

135 

FIX A  CODE 

132 

FLOATCODE 

133 

Remark 

Character-t o-binary  conversion 
Binary-t o-character  conversion 
Assignment  statement 
Floating-point  to  numeric 
Fixed-point  to  numeric 
Assignment  statement 
Declarative  statement 
Control  statement 
I/O  statement 
Called  by  BFLAAPL 
Assignment  statement 
Declarative  statement 
Numeric-t o-character  conversion 
Called  by  PUT,  CLOSEFILES 
BCD  to  binary  conversion 
Expand  any  array 
Code  conversion 
Expansion  of  items 
Numeric  to  fixed-point 
Numeric  to  floating-point 


' 


i 


■ 


l.-< 


125 


Function  Name 

Page 

GET 

128 

GROUP 

130 

INITIAL 

12  7 

INTERNAL 

133 

LOADABLE 

136 

MO  VETO 

127 

MO VEABYANAMEATO 

128 

NAMEATYPE 

136 

NUMREP 

135 

NUMASIGABITS 

133 

OF 

129 

PRINT 

127 

PUT 

12  9 

READAINTO 

130 

REF 

129 

REWIND 

126 

SETPICTURE 

134 

SHOWPICTURES 

126 

SKIP 

135 

STACK 

129 

STRETCH 

136 

SUB 

126 

SUFFIX 

136 

VALUE 

134 

WRITE AFROM 

126 

A 

136 

Remark 

I/O  statement 

Called  by  SETPICTURE 

Declarative  statement 

Code  conversion 

Called  by  GET 

Assignment  statement 

Assignment  statement 

Tests  for  qualifier 

Character-t o-numeric  conversion 

Code  conversion 

Assignment  statement 

Control  statement 

I/O  statement 

I/O  statement 

Called  by  ASSIGNATO ,  etc. 

Control  statement 

Called  by  DECLARE 

Declarative  statement 

Used  in  branching 

Control  statement 

Enlarges  symbol  table 

Assignment  statement 

Deletes  part  of  a  vector 

Finds  a  qualifier 

I/O  statement 

Tests  "type"  of  an  agrument 
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V  SHOWPI CTURES  K\I'\J\L\M 

[1] 

[2]  ( ' RECORD  NO.  ' \K) 

[3]  ->(  (K+K+l)>(pIDENT)ll])  /I+O 

[4]  ************** 

NAME  PICTURE  POSITIONS  RANK ' 

[5]  -*(  (  p  I  DENT)  [  2  ]  <I<-I  +  1 )  /  0 

[6]  ->(  '  '  -  LEIDEN TlK  ;  J]  )  /  O 

C7]  «7«-(  (  0  =  p <7) /O  )  ,  PPF  L 

[8] 

[9]  (JD£7mA;I],(6p'  ’  )  ,PICTlK ;X; ] , 2p '  ’jL/J;'  TC  »  ;  T  /eT ; 

6p ’  ' ; ( 0<M) /M+RANKlKi I; ] ) 

[10]  +  5 

V 


V  REWIND  N 

[1]  INDEXIN1+1 

[2]  ENDFILELN]<-0 

V 


V  Si/S  LIST ;  K ;  L 

[1]  -+NAME  ATYPE  VEC 

[2]  'ERROR' 

[3]  ->0 

[4]  VE  C+-VALUE  VEC 

[5]  A*-(  -i-  6  )  xNUMASIGABITS  L+-PICTIVE  C[  2 ] ; 7SS[ 1 ] ;  ] 

[6]  P*-i?4iVA[7SC[2];7£,C,[l];  ] 

[7]  +SKIP-' a' eL 

[8]  K<-lKi*/(R>0)  /R 

[9]  R+-((R>0)  /R)±~  1  +  LIST 

[10]  R+VECZl  2  ,2+(Ax/?)  +  iA] 

V 


V  N  WRITE AFROM  K\L\M\0\P 

[1]  ->(  0>TALLYIK+K+1  ]  ) /O 

[2]  +SAIP(  pZMX/lSSX)  [l]>IPPPX[P]  +  l  +  !P4LPy[A] 

[3]  P4X/1SP2V(  1 , 1+TALLYlK]  )EXPANDK  DATASET 

[4]  DATASETlINDEXlN]+\TALLYLK]  ;  (  6+A7-  1  )  +  i  6  ]+COREl  (RECL*K-  1 
)+\TALLYlK]  ;  ] 

[5]  DATASETlINDEXlNl  ;  (  6xff-l)+i  6]«-'  9  '  FIX&CODE  TALLYlK] 

[  6  ]  ENDIN’]  +INDEXI N]+-l  +  INDEXlN]  +  TALLYLK] 

[7]  TALLYlK]<-~  |  TALLYlK] 


V 


' 
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V  DECLARE  X\I\N\J 

[1] 

[2]  X+l+lX 

[3]  -+SXIP  0>I+-(  RECLxR  )  -  (  p  CORE  )  [  1  ] 

[4]  -+SKIP  7  x  0  <  x  /  p  I  DEN  T 

[5]  IDENT+UC,  5  )p  1  ’ 

[6]  TABLE<-(XtS tRECL)pO 

[7]  PI  CT<-  ( K  ,  5  1 5  )  p  '  1 

[8]  RANX+(X,  5  3)p0 

[9]  ’  FOR  EACH  ITEM ,  TYPE: 

IDENTIFIER 
PICTURE ' ,(X> 1)/’ 

INITIAL  COLUMN  NO.' 

[10]  SETPICTURE  K 

[11]  *>  0 

[12]  1  STRETCH  X- ( p IDEN T) 111 

[13]  IDENTLN pX;l+'  ' 

[14]  SETPICTURE  X 

V 

V  A  MOVE  TO  B \I ;J \X\L\M 

[1]  ->(  A/0<(p  ,1+NAMENTYPE  A)  ,p  ,J<-NAMENTYPE  B)  /  4 

[2]  * UNDEFINED  SYMBOLS' 

[3]  ->0 

[4]  +SXIP  1=5 

[5]  A+VALUE  A 

[6]  +SXIP  J= 5 

[7]  B+VALUE  B 

[8]  COREl(RECL*Bl2l-l)+I<-2  SUFFIX  B\  ]«-(t7,6)p(  ,  CORE  [  ( RE  CL* 
Al2l-l)  +  2  SUFFIX  A  ;  ]  )  ,  (  6x<7<-“2  +  pS  )p  0 

[9]  TALLYIB121  /TALLYlBl  2]  ]  ,  I 

V 

V  PRINT  N \I \ LEN ; SUB 

[1]  SUB+(  6x/l/-l)  +  i6 

[2]  I+- 1 

[3]  LEN<-2lDATASET[_I  \SUBl 

[  4  ]  ALPH MONCHAR  ,  DATASETH+  i  ;  SUB  ] 

[5]  ->(£’//Z?[//]>J<-I  +  l£’i7  +  l  ) /3 

V 

V  RMNITIAL  N 

[1]  R+N+ 0.5 

V 


. 


. 


. 
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V  CLOSE LFILES 

[1]  EMPTY  LBUFFER 

[2]  BUF+ lO 

V 

V  R+CONTENTSOF  VEC;I;J;K 

[1]  ENAMEL  TYPE  VEC 
[ 2  ]  ’ ERROR  IN  ' 1  CON  TENTS  OF ' ' 

[3]  ->0 

[4]  VEC<-VALUF  VEC 

[5]  R<-  ,COREl(RECL*VECl  2]-l)  +  2  SUFFIX  VEC;] 

[6]  R+PICTlVECl2];VECll]; ^EXTERNAL  R 

V 

V  GET  NAMES ; I ;V ;VAL ;P1 ; J ;K ; L 

[1]  L+ITEMMN+I+O 

[2]  NAMES*- tNAMES 

[  3  ]  IN  C  A  :  ■>  (  (  p  NAMES  )  <  J«-  F  +  1 )  /  0 

[4]  ->(0  =  p  BUF)/RD 

[5]  V+VALUE  NAME  SI  I] 

[6]  ->(~v /J<-v /121BUF)  /RD 

[7]  Pl«-(  -  a/J-)  +  (  jAlcp-J)  i  1 

[8]  VAL<-ALPI1LT0ACHAR  .BUFlxPl;] 

[9]  BUF+BUFlPl+\(pBUF)ll]-Pl;] 

[10]  ->SKIP  ’  a  ’  e  PICT  l  VL2] ;V[1] ; ] 

[11]  VAL+10  NUMREP  VAL 

[12]  VAL  ASSIGN  AT 0  V 

[13]  +INC A 

[14]  RD  :-+(~ENDFILE[L]*-INDEX[L]>END[L]  )  /RD+  3 

[15]  1  END  OF  FILE  CONDITION f 

[16]  -+pBUF<-\  0 

[17]  VAL<-2±DATASETIINDEXIL]  ;  (  6><F-l)  +  i  6] 

[  18  ]  FFF^F/l^SFT[JFFFF[F]  +  i  IMF  ;(6*F-l)+i6] 

[19]  ItfFFX[L>T//Z?FX[F]<-74F  +  l 

[20]  -+INCN+2 

V 

V  41  MOVE  LB Y  L NAME LTO  A2;I;J;K;L 

[1]  ->Ul=>i2)/0 

[2]  J<-l  +  pI+  /ll]IDENTll+Al  ;  ]  o  .  =  IDENTl  1 +A  2  ;  ]  )  /IDENTl  1+A2 

;] 

[3]  ->•  (  0 ^ J+-J-  1 )  / 0 

[4]  (I[<7]OF  A1)M0VET0  HJ]OF  A  2 

[5]  ->  3 


V 


: 

4> 

' 
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V  N  STACK  STB  ;  SUB  \  T \R  \  I  \  'J 

[1]  SUB  -<'(6x//-l)  +  i6+J-<-0 

[2]  T*-(  (  (~l+RECL)ip  ,STR)pSTR)  ,  '  ' 

[3 ]  DATASETlINDEXlNl iSUB]  +  ( 6p  2 )t pT 

[4]  *>(  (pDATASET)lll<INDEXlN~]+pT) /8 

c  5  ]  ->(  (Pn<i^i+i)/io 

[6]  DATASETlINDEXZNl  +  I-'SUBl  +  i  6p2  )T  1 +ZM  JPi4SZ?<?  i  T[  I  ] 

[7]  ->5 

[8]  DATASET*-  1  10  EXPANDX  DATASET 

[9]  *>4 

[10]  ENDlNl+INDEXim+INDEXlNl  +  l  +  pT 

[11]  *>(  0  <p  STR*- 1  (  p  ,T  )  SUFFIX  STR) /2+I*-0 

V 


V  RENAME  OF  REC\I\J\K 

[1]  R*-J  ,  RE  C ,  (  tTABLElREC;J<-IDENTLREC<-l+REC ;  ] \NAME;  ]  )  / \RECL 

V 


V  i?«-£  i?£F  i4 

[  1  ]  K*-K+  1 

[2]  i?«-(  ,TA3LElKiIDENTlK\  1\A;  ]  )  /  i  RE  CL 

V 


v  Put  names \I\vec\F\pt\J\K\ ltemp 

[  1  ]  NAMES  FRAMES  y\I*-  0 

[2]  PT*OUTPTR 

[3]  MND  :  +  ((p  NAMES  )  <I<-I+1) /0 

[4]  VEC*-VALUE  NAME  SHI 

[5]  -+SKIP  3  x  v  /  ’  /?a  ’  £  F*-PICTL  VEC[_2‘]  ;  7£'C[  1  ]  ;  ] 

[6]  F<-(  * _ 1  ,  (EXAFOtfAMT  F),fi? _ ’  )EPORTCODE  CON  TEN  TS  OF  VEC 

[  7  ]  TEMP-*-  (  ( *7«-L  (  p  F  )  t  6  )  ,  6  )  p  F 

[  8  ]  ->SKIP  2 

[9]  J*-~  2  +  p  VEC 

[10]  TEMP+COREZ2  SUFFIX  VEC-,] 

[11]  +(RECL<PT+J) /PUTPUT 

[12]  OUTlPT+\J;  HTEMP 

[13]  OUTPTR*-PT*-PT+J 

[14]  ->A  IND 

[15]  PUTPUT  -.EMPTY  EBUFFER 

[16]  PT*-  0. 

[17]  *>12 


V 


■ 
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V  R+K  GROUP  LIST; I ;J ;L;M 

[1]  L<-(~LI  ST  elDEN  TLK ;  ]  )  /LIST 

[2]  (0<pL)/L,'  :  USDS  FIRED  SYMBOLS  IGNORED 

[3]  LIST<-(LISTeIDENTLK  ;  ]  ) /LIST 

[4]  /?«-v/[  1 1TABLELK;  IDENTLK;  ]  i  LIST;  ] 

V 

V  R+NN  EXPANDK  ARRAY ;I;J 

[ 1 ]  I+NN C 1 ] 

[2]  R<-((  (pARRAY)Lllpl)  ,NNl  2  ]p  0  )  \  II3ARRAY 

V 

V  ARG  ASSIGN  ATO  VARB ;I ;J ;K;L 

Cl]  -+NAME  ATYPE  VARB 

[2]  ’ ERROR  IN  '  ' ASSIGN ATO ’ ’  . 1 

[3]  ->0 

[4]  VARB+VALUE  VARB 

[5]  ->(  0 >J<-  2  +  pVARB)/0 

[6]  K<-(  J  t  6  )pPICT\_  VARBL  2  ]  ;  VARB\_  1  ]  ;  ^INTERNAL  ARG 

[7]  COREL  (RECL*VARBl2l-l)+J<-2  SUFFIX  VARB;1<-K 

[8]  TALLYIVARB1211+L /TALL Yl VARB [ 2 ] ] , J 

V 

V  BLANKARECORD  K;I 

[1]  COREl(RECL*K)  +  \RECL;  >0 

[2]  TALLYLK+1  ]-*-RECL 

V 

V  CLEARAPICTUPES 

[1]  IDENT+TABLE+PICT+  lO 

V 

V  CLEAR  AT APES 

[1]  END+INDEX+  3pl 

[2]  DATASET +  100  18  pO 

[3]  BUF*-" 

V 

V  N  RE AD  AIN  TO  K ; TEMP ;J;L 

[1  ]  -+(ENDFILEim+INDEXlN3>ENDlin  )  /0 

[2]  2TOP«-2±  yDATASETLlNDEXLNl  ;  L«-(  6x//-  1 )  +  i  6] 

[3]  <%>PP[  (RECLxK)  +  \TEMP;  1+DATASETlINDEXLN  ]  +  i  TEMP ;  L] 

C  4  ]  INDEXLN~\+-INDEXLN  ]  t  PEWP  + 1 

[5]  2MLPYCP+1  ~\+-TEMP 


V 


■ 

. 
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V  R*-FIELD  ELEMENT  A\N  ;VAL  \T  \U  \V  ;J 

[1]  T< — ’ T ' e  FIELD 

[2]  U+-(  FIE LD*-EX AFORMAT (~FIE LD e  '  T' ) /FIELD)*' _' 

[3]  FIELD<-(FIELDe  '  VYZ.  ,91-+'  )  /FIELD 

[4]  NUM-.N++/FIELDI  \J<-  1  +  (  FIELDe  '  XV  .  '  )  i  1  ]  e  »  9  ' 

[5]  ->(~'  X'  eFIELD)  /NUM+10 

[6]  N+N-  L  1+  1  0®  \A 

[7]  ->(77<10*  +  /(  VAL+-FIELDI  (FIELDx  '  X'  )+ \ ( p FIE LD ) -FIELD \  'X'D 
e ' Z9Y ' ) /NUM+ 5 

[8]  +(  0  <p  FIELD  [  (  FIELDS  i  e7  ]  e  f  ZY'  )  /\J1*-'  9’  )  /71/D77 

[9]  -+SKIP  2x77*0 

[10]  F«-  '  J  00' 

[11]  +577  IP  1 

[12]  F+'Y'.tML  ELEMENT-N 

[13]  ->0,0/F+(FIELD[i  1  +  FIELDi  '  X'  1ELEMENT  A*  10*77), 7? 

[14]  j4-<-j4x  1 0*+ /FIELD [  ( FIELD  i  •  7*  ) + \ ( p FIE LD ) - ( FIE LD+FIELD  ,'V' 

)  i  '  7'  ]e  f  9  Z  Y  f 

[15]  FIELD*- (FIELD*'  V'  )  /FIELD 

[16]  7V++ /FIELD  [  \~1  +  FIELD\  ’ . ' ] £ ’ 9 YZ ' 

[17]  +  ((  U)  <10*77)  /NUMP9 

[18]  FIELD  [  (  (  p  FIELD  )  u  3  )  /  i  p  FIELD  ]  «- ’  Y+  9  ' 

[19]  +NUM 

[2  0]  N  UMP  9  :  R*~  (  (  +  /FIELDe  '  9 ZY 1  )  P  1 0 ) T L ( lx 

0.5)  +  lE"*9  +  (  U)xi(J*(  »  .  ' eFIELD) x(pFIELD) -FIELD \  '  .  ’ 

[21]  F+'  012345678  9  f [F  +  l  ] 

[22]  F+F  [  1 77  ]  ,  (  '  .  'eFIELD)  /'  .  1  ,F[77+i(pF)-77] 

[23]  R*-((FIELD*-U\FIELD)e  '  ZY9  .  '  ) \F 

[24]  D<-((pF)cTl+(F£  '  0')i0) 

[25]  F[  (FIELDe  '  +-  '  )  /  i  p  FIELD  ]<-(((  (4<0)  ,4>0)  ,  ^  >  0  )  a  (  (  (  77  +  1 )  ,77+' 
+  f  eFIELD  )  ,J<-'  -  '  eFIELD  ))/'-+  ' 

[26]  RKFIELDe'  ,'  ) /xpFIELDl*-'  ,' 

[27]  F[  (  (  FIELD  -  '  Y'  )  AF=  ’  O'  )  /  i pF]+ ’  ’ 

[28]  F[  (  DA'FIELDe  '  Z  ,  '  ) /ipF]+'  ' 

[29]  -*(v/F£  ’  0123456789  ') /O 

[30]  F+(  pF ) p  '  ’ 

V 

V  R*-BFL\  APL  BITS \I \X 

[1]  I-*-”  7  +  pBITS<-  tBITS 

[2]  R*-(  1-  2xBIIE[  7])x  +  /(2*-iI)x7  SUFFIX  BITS 

[3]  R<-Rx  8*1  BFXAAPL  BITSl  16] 

V 

V  R*-SW  BFXAAPL  BITS\I\J\K 

[1]  BITS*-(  ( ~SW  )  /  0  )  ,  BITS 

[2]  R*-  (  1  -  2*BITS  [  1  ]  )  x  2±BITS  [l+i~l+pDII5] 


V 


. 

■ 


' 


. 
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V  R+F  FIX  A  CODE  DEC\W\I 

[1]  J<-v  /  '  +  -  ’  e  F 

[2]  W<-N UM AS I GAB I TS  F 

[3]  ->SKIPv /(DEC>0)  eF 

[  4  1  DE  C<-  0 

[5]  -ySKIPi  |  DEC  )  =  2lR*-(  (  W-I )  p  2  )  T  I  DEC 

[6]  ' SIGNIFICANT  BITS  LOST ’ 

[7]  -*(-!)/ 0 

[8]  R+-(DEC<0),R 

V 


V  R+N  CODE AFR ACT  ARG;I;J;K 

[1]  -+SKIP  1  >\ARG 

[2]  +  0  =  p[]  +■' ERROR  IN  CODE  AFR ACT  ' 

[3]  R+ARG<  0 

[4  ]  ARG+- 8xl  |  j  ARG 

[5]  R+R t  2  2  2  T L ARG 

[6]  -+(  N  >  p  R )  /4 

[7]  F«-FpF 

V 


V  F*-F  EXTERNAL  BITS;I;J;K 


[13 

F<-EX  AFORMAT  F 

[23 

->  3  3  5  5  7[  (  ' 

aFZ.  T  £ 

F)  i  13 

[33 

R<- ALPHA  TO  A  CHAR 

BITS 

[43 

-y  0 

[53 

R+BFLAAPL  BITS 

[63 

+  0 

[73 

R+( v/»  +- * eF)BFXAAPL 

BITS 

[83 

-+(~’  7'  eF)  / 0 

[93 

10*(pF)-Fi 

'V' 

V 


V  R+ALPHATOACHAR  BITS\I\J 

[1] 

[2]  BITS+(  (J+(pBITS)*6)  ,6)pBITS 

[3]  -*(  J  <I*-I+  1 )  /O 

[4]  , Fi42\4FF§[  l  +  2± ST21  ST  X  ;  ]] 

[5  ]  -3 


V 


' 


■ 

■  i 


■ 


V  R<-FMT  INTERNAL  ARG ; J 

[13  FMT<-EX  A  FORMA  T  FMT 

[2]  -*■  3  5  7  7  9  [  (  *  a  RX  .  '  e  FMT  )  i  1  ] 

[3]  R+FMT  ALPI1LC0DE  ARG 

[43  ->-0 

[5]  R<-FMT  EPORTCODE  ARG 

[6]  ->0 

[7]  R<-FMT  FLOATCODE  ARG 

[83  ->o 

[9  3  #<-(  (  FMT*  '  V'  )  /FMT )  FIXhCODE  ARG 

V 


V  R<-F  ALP  //A  CODE  STR\VEC;J 

[13  R+" 

[23  J<-l  +  pVEC<-  ,~1+DATASEQ\STR 

[33  -> (  0 1  )  / 6 

[43  #<((  Sp2)TVEClJl)  ,# 

[5  3  *>3 

[63  R*-J  p#,((J-<-6xp  ,F)-6xp  ,  521# )  p  0 

V 


V  R<-FIELD  EPORTCODE  DEC\I\J 
[13  FIELD*-(~FIELDe  '  R') /FIELD 

[23  #<(  ( p  FIELD ) p  ’  a  '  )  ALPH  hCODE  FIELD  ELEMENT  DEC 

V 


V  R+FMT  FLOATCODE  ARG ; L ; J ;N \FR ; J 

[13  #«-(  6xLt-4  +  7>«5<  +  /FAf2’[  i  1+FAfTi  '  * '  3e  '  9Z’  )p0 

[2  3  #<-3  2  -  (  1  >  (  1  ARG  )x8*32-i63)il 

[3  3  /?[  i6  3«-,+9l  FIX&CODE-N 

[43-  Rl6+\G*L-l]+(GxL-l)CODEAFRACT  ARG*8*N 

V 


V  R+-N  UHLS  I  GhBITS  F\I\W\K 

[13  R+EXLFORMAT  F 

[23  -►(  0</?«-6*  +  /Fe  *  a*  )/0 

[33  ^+/(,F)[i  1+Fi 'Z' 3e  '  Z9  ' 

[43  +SPIP  2xv/7.  '  eF 

[5  3  P<-6x  (  (10±!/p9)<2*(-v/*+-'eF)  +  6xi4)il 

[63  -*■  0 

[7  3  #<-24  +  4  2x5  <F/ 


V 


- 


■ 

' 


s. 


{  - 


' 
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V  REVALUE  NAME; I;J;X;L 

[1]  R<-\I<-0 

[2]  ->(  (f>IDENT)in<I+I+l)  /O 

[3]  J+UC+IDENTlIileNAME)\l 

[4]  ->(~v/X)/2 

C  5  ]  R<-J  tI  y  I  REF  NAME 

v 


V  SETPICTURE  K ; T ; I ; F ; SAVE ; L ; FL ; FX ; J ;P 

[1]  ->(  o  =  pr^n)  /P<-0 

[2]  +SKIP-' eT 

[  3  ]  P<-0 

[4]  F<-(  ,IDENTlK;  ]e  ’  '.MpDil 

[5]  2  STRETCH  5xJ> ( p IDENT) [2] 

[6]  J]«-r 

[7]  PAFF[F; J; >3pP,  0  0 

[8]  P<-x/(P>0)/P 

[9]  T<-P*pEXAFORMAT  F<-0 

[10]  F4FF«-l  +  [  /0,(v/[l]2M5Z,F[F;  ;  ])/iBFFF 

[11]  -+SXIP  4xF=l 

[12]  -*-SKIP  3x4  >  A  S4  7P«-[] 

[13]  3V10L£[K;  J;  GROUP  SAVE 

[14]  PICT  IK;I ;  ]  -<- '  [  1  ,  1  0123456789*  [1+  10  10  10  T  +  /  TAB  LEI  K  ;  I ; 

]  ]  ,  '  ]  a  ’  ,  9  p  ’  • 

[15]  ->1 

[16]  ->SXIP  6  x  ~  ’  a  ’  e  F 

[17]  +SXIP  3xF=l 

[18]  SAVE<-{  (  p  .SMFFH  F ) p S47F+ 0 ,  iF-1 

[19]  TABLEIK  ;  I ;  ]-*-(  i  RE  CL  )eSAVE 

[20]  ->SXIP_~  5 

[21]  SAVE*  l+SAVE+\P*pEXAFORMAT  F 

[22]  +SKIP  8 

[23]  +SKIP  4 x'F’eF 

[24]  FX+-(  -i-  6  )  x-NUMASIGABITS  F 

[25]  F2>4+7x6<+/L[ 1+ ( L+EXAFORMAT  F) \'X']e'Z9' 

[26]  L+-P*(L  %~L+\r /'  .X'eF)/FL,FX 

[27]  +SKIP  1 

[28]  L+P*+ /-(EXAFORMAT  F)e'RTV' 

[29]  +SKIP  L=p tSAVE 

[30]  SAVE<-{  l+lpSAVE)+\L 

[31]  TABLElK ;  I ;  X  \RECL  )eSAVE 

[32]  PICTIK;I; >15pF, 14p ’  ’ 

[33]  ->  1 
•V 


. 

. 
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V  R*-B  N UMREP  STRING ; SEQ ; FRA CT ; TEMP ; I ; SIGN 

[1]  0=pR+STRING) /O 

[2]  012345  678  9>1SC,PPF,  [  iP] 

[3]  SIGN*-(~ 1  "1  1 )  [  1  '  i  (  STRING*-,  (STRING*  '  '  )  /STRING )  [  1  ]  ] 

[4  ]  FRACT*-  (  TEMP e SEQ  )  /  TEMP*-  (  TEMP  c  SEQ  ,  '  .  ’  )  /TEMP*-STRING\_  \ 

~1+I*-STRING\  1  X'  ] 

[5]  R*-(  SIGN *B l  1+SEQ\FRACT)*B*(  '  .  ’  e  TEMP  )  x  (  TEMP  i  ’  .  »  )-pTEMP 

[6]  +  (  I>pSTRING) /O 

[7]  STRING*-!  SUFFIX  STRING 

[8]  R*-R*B*  1 0  N UMREP  STRING 

V 


V  EMPTY NBUFFER \PT \M\L\I \J \K 

[1]  L*-ITEMOUT 

[2]  PT*-OUTPTR 

[3]  -K  (p DATASET) [ 1 1<INDE XlLl+PT) /9 

[4  ]  ZM2M5FTCTi'/P£TCF]  ;  (  6*L-  1  )  +  i  6>(  6p  2)tP7 

[5]  D^7’/.55’27[JPZ}PZ[L]  +  iPr;  (  6  x£-  1 )  +  i  6  ]<-PPP[  iPP;  ] 

[6]  PPP[L>IPPPX[L>PPPPX[L]+PP+1  ' 

[7]  OUT-*(  RECL  ,  6  )  p  OUTPTR*-0 

C  8  ]  ->0 

[9]  DATASET*-  1  10  EXPANDK  DATASET 

[10]  ->  3 

V 


V  R*-SKIP  N  ;  K 

[1]  R*-'  ' 

C2]  ->(  (  0=^)vl>pjf-*-,x27)/0 

[3]  tf-HV+tfCl+i  1  ]+( -F<0  )+A7>0 

V 


V  R*-EX NFORMAT  A\I\J\K\L 

Cl]  R+%A 
C  2  ]  J*-p  tR 

C  3  ]  ->(  ’  C  ]  ’  )  /0 

C  4  ]  Z>10±  1+'  01  2345  6789*  i  (  (e7a“l  +  JC2])A~t7aJCl])/P 
C  5  ]  P<-PC  i"l  +  JC  1  ]]  ,  (IpPC  1  +  PC  2]  ]  )  ,  (1  +  JC2]  )5PPPPZ  R 
C  6  ]  ->2 


V 


- 


. 
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V  R<- A  ARG 


[1] 

-*■  (  0  =  p  Rt-A  r  G  )  /  0 

[2] 

R<-1 

[3] 

-*(  a  /  ARGe  1  0)/0 

[4] 

Rt-  4 

C5] 

/ARGeCHARSET 

[6] 

Rt-  2 

[7] 

->(  a/0=1  Uf?G)/0 

[8] 

Rt-  3 

V 


V  R+N  SUFFIX  VECT 

[1]  R+(~(pVECT)oiN)  /VECT<-  ,VECT 

V 


V  LOADABUF \L\VAL 

[1]  L+-ITEMAIN 

[2]  +(~ENDFILElLl<-INDEXtL']>ENDlLl  )  /4 

[3]  -+pBUF+0/'  END  OF  FILE ' 

[4]  FAL«-2±ZM2Vl£ETi:  ItfDEZEL]  ;  ( 6x£-l)+i6] 

[5]  Bt/F-t-Z?>l^l9ET[J^DZi’XrL3+i7/lL;  (  6x£-l)+i6] 

[6]  Jtf££T[L>Ttf££J[L]  +  F,4L+l 

V 


V  RENAME ATYPE  X\I\J\K 

[1]  I+2<p  yX 

[2]  K+ 4>A  J 

[3]  J«-a /XelDENT 

[4]  R+{{Ja~I)  %IhK) /  4  5 

V 


V  5J/B  STRETCH  N 

[1]  ->(N<0)/0 

[2]  IDENT+-(  SUB+SUB  ,  N  )EXPANDK  IDENT 

[3]  TABLET-SUB  EXPANDK  TABLE 

[4]  PICT+SUB  EXPANDK  PICT 


V 


. 

. 


' 


. 
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C.2.2  The  Universal  Format  Language  (UFL)  System 


Function  Name  Page  Remarks 


CHARSET 

142 

CHECKAFORM 

142 

CHECKATARGET 

141 

COMP LI 

139 

COMPAFORT 

138 

DECIMAL 

140 

DECLCODE 

140 

DSF 

43 

EXPANDK 

130 

FORTFORM 

118 

GO 

47 

NEXTITEM 

47 

OUTITEM 

142 

REFORM 

122 

SEMANTICS 

l4l 

SKIP 

135 

SUFFIX 

136 

TOP 

l4l 

TOPNUM 

l4l 

TOPPAREN 

140 

WRITEOUT 

l4l 

APL  character  vector 
To  enlarge  FORMM 
To  enlarge  TARGMAT 
"Compile”  PL/1 
"Compile"  Fortran 
Diglts-t  o-number 
Numb er-to-di gits 

Initializes  for  subset  of  Fortran 

To  enlarge  any  array 

Initializes  for  Fortran 

Called  by  NEXTITEM 

Parsing  function 

Executes  output  formats 

Initializes  for  PL/1 

Called  by  NEXTITEM 

Used  in  branching 

Deletes  part  of  a  vector 
■> 

>  To  unstack  one  element 
J 

Calls  OUTITEM 


. 
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V  COMPAFORT  M\K\ NSF ;W;J ;K 

[1]  ->(tf=0,(i6)  ,9+i5)/(  N  SF+-  0  )  ,  ONE  ,  TWO  ,  THR  .FOUR .  FIVE  .SIX . 
TEN .ELVN . TWELVE . THIRT .FORT 

[2]  +0 

[3]  ONE  :  ->p  0  /N  UMSTACK<-N  UMSTA  CK  .  DECIMAL  FORM  l  1  + J+ \  SYPTR- J<- 
(  .IDS) [p .IDS]] 

[4]  TEN  :  ->p  0  /  CURTYPE+-  ’  AIDEF  ’  i  F£PAf[  SYPTR-  1  ] 

[  5  ]  THR  :  NSF<-TOPN UM 

[6]  TWO  :  FORMMl ;  FNEXT]+  ((  1  +  9  *CURTYPE>  1 )  ,  1  ,  CURTYPE=  1 )  ,  1  ,  (  W<- 
TOPNUM ) ,MNE XT 

[7]  *>(  CURTYPE  =  1 )  /  0 

[8]  CHECKATARGET  MNEXT+W 

[9]  IZVlFGAMrC  jMWEJT+if/IKO 

[10]  JMflGAMTCl \MNEXT+\ W]*-CHARSET\ 

[11]  +FAPP  2*  CUR  TYPE  =  2 

[12]  Wi?«Mr[  3  ;  ( K+MNEXT  )+W-NSF]<- 1 

[13]  IP  1 

[14]  F5P<-  1 

[15]  -*FAJP  2  xCURTYPEe.  3  4 

[16]  7MP6/A4F[4  ;  J<-MNEXT+  i  W-NSF+  2  >2 

[17]  STLSGAMTC  2;<7>1 

[18]  MNEXT+MNEXT+ W 

[19]  ■+(  CURTYPE  e  2  5)/0 

[20]  ^061  , (tfSFpO),  4000 

[21]  T^P(7/l7lT[3;A/+if/]^((orr/-pt7)p5)  ,  «7 

[22]  ?MFGAMT[4;A+i£/]<-2x(  \W)eW- 2 ,6+NSF 

[23]  ->p  0  /  r-4  i?  GAf-4  T  [  5  ;  A+ f7- 3  X7P/1P5P21 1  ’  PP  '  [  2  +  PPPITPP] 

[  24  ]  5PA  :  F£PMA/[  4  ;  FNEXT  ]<-TOPNUM 

[25]  FOUR  :  FNEXT+-FNEXT+ 1 

[26]  CHECKAFORM 

[27]  +0 

[ 28 ]  TWELVE :+p  0 /PAREN ST ACK+P AREN  STACK .FNEXT 

[29]  THIRT-.FORMMl  ;FNEXT]<-  0  0  0  ,  TOPNUM .  0  ,  TOPPAREN 

[30]  +FOUR 

[31]  FORT :  -+p  0  / TOPPAREN 

[32]  FIVE :+S KIP  2* ' X ' *FORMl SYPTR- 1] 

[33]  FORMMl ;FNEXT]+  0000  .TOPNUM ,0 

[34]  -+FOUR 

[35]  W+TOPNUM+K+-  0 

[36]  NSF<-  1+SYPTR+xW 

[37]  SYPTR+SYPTR+W+K 

[38]  CHECKATARGET  MNEXT+W 

[ 39 ]  TARGMATl ; MNEXT+ i W]  +  ( 5 , W) p ( CHARSET i FORMLN  SF ] )  , ( 

5  x  J7 )  p  0 

[40]  FORMMl \FNEXT]+  1010  , W.MNEXT 

[41]  MNEXT+MNEXT+W 

[42]  +FOFP 

[43]  EL  VN  :  W<-  (  SYPTR  SUFFIX  FORM)  i  1  ’  *  ’ 

[44]  K<- 1 

[45]  -*4  +  FPFF 


V 


- /  j 

. 


, 


: 


1  l*f 
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V  COMPL 1  N\I\W\D\J\K\MAT\A ;B;C 

Cl]  +(N=  2  8  9  10  ,12+i7)/PL2, PL 8 .PL9  . PL  1 0 , PL 1 3 , PL  1 4 , PL  1 5 
, PL 16,PL17,PL18, PL 1 9 
C  2  ]  ->0 

[3]  PL2  :  NUMSTA  CK<-NUMSTACK  .  DECIMAL  FORMl~  l  +  I+\SYPTR-I-<-(  . 

IPS)[p ,IP5]] 

C  4  ]  +0 

[5]  PL  8  :  VEC<-VEC  .TOP NUM 

[6]  ->(  CURTYPE<  3  )  /  ABX 

[7]  MAT<-(  5  .U+VECll  ]  )p  0 

[8]  +SKIP  3*  CURT YPE *  9- 

[9]  MAT12  4  ;  >  1  2  o  .  x  ( <j>  x  w)  >  1+P  +  0  <X  VEC .  0  )  [  2  ] 

[10]  MATl3;W-D]+D>0 

[11]  +D000 

[12]  +SKIP  3x2<p VEC 

[13]  'WRONG  SPECIFICATION :  '.FORM 

[14]  ( ( 19+SYPTR)p ' 

[15]  VEC+VEC. 0 

[16]  VEC+3pVEC,( 1+VECL21) ,0 

[17]  M^!T[3;J^(((})i[/)e4,5  +  7PL[2])/if/]^  1  4 

[18]  tfylTC  5  ;  J[  2  ]  ]  1  'E' 

[19]  MATlA\(W-2)  .I+l[W-VECl3l  +  5l<-  3  2 

[20]  /L4?,[3;iJ-l>5 

[21]  +D000 

[22]  ABX:->SKIP  CURTYPE*3 

[23]  -*lpF0f?MM[  jPPPXP]*-  0  0  0  0  ,7P5[1],0 

[24]  FORMML ;FNEXT1<-CURTYPE .  0  0  1  .VEC [1],0 

[25]  PL9:VEC<-\0 

[26]  CURTYPE<- '  ABXFE  '  i  P0P/tf[  SYPTR-  1  ] 

[27]  +C0MCNT+  0 

[28]  PL19  :-*SKIP  2*  0  0  0  1  2  [  CUR  TYPE  ]  >C0MCN  T+COMCN  T+ 1 

[29]  'ILLEGAL  COMMA :  '.FORM 

[30]  ( ( 13  +  5YP27?)p ' 

[31]  7P  >  FP  0 , T  OPP  UM 

[32]  PL10  :->(  ,FC7?i7M[  ;  PPPXP]^C,PP21JPP  ,  0  110  0)[2] 

[33]  PLlZiSTR+FORMl  1+1+ \SYPTR-I+IDSlp .IDS~n 

[34]  ->SFLP  2*((v /'  *Z'  eSTR)x[ /(STRe'  *Z'  ) /\pSTR)<W+STR\'  9' 

[35]  'ILLEGAL  SEQUENCE :  ',527? 

[36]  ( ( 17  +  W+CW  SUFFIX  STRe ' *Z' ) i l)p '  ’  ),*  +  ’ 

[37]  X  1  T/'eP27?)x(  ('-STRe  'P'  '  '  )  /STR)  i  *7* 

[38]  W+-pSTR+(~STRe'  VP'  '  '  )  /STR 

[39]  -+(  v/'AX'  eSTR)  /PICTU 

[40]  MAT<-( 5 .W)p 0 

[41]  //ATC  2  ;  >.VoT  1+527?  i  '  9  ' 

[42]  AMPC  3  ;  >(7x527?='  .  '  )  +  (2 *STR='  .  '  )  +  (3 *STR='  /'  )  + 

5 xSTR=' B' 

[43  ]  /V^r[  4  ;  >(527?  =  '+’)+(  2  *STR=  '  -  '  )  +  3  *STR='  S' 

[44]  MAT l 5 ; >(527?=' *'  )*CHARSET\ ' *  ' 

[45]  ->SKIP  0  -K 


. 

* 


. 

- 


. 

' 


. 


[45]  -+SKIP  0 -K 

[46]  MATlZiK]*-- 1  +  2*1  =MATIZ  ;P] 

[47]  DOOO : CHE  CKETARGET  MNEXT+W 

[48 ]  TARGMATl iMNEXT* i Wl+MAT 

[49]  FORMMhFNEXT]*-  10  0  0  1  ,  W , MN EXT 

[50]  MN E X T+MN EXT+ W 

[51]  *»0 

[52]  PICTU:+(  'FORMMl  ;FNEXT1<-  10  11  ,  Tv\  0  )  [  2  ] 

[5  3]  PL14  :-*p  O/TOPPAREN 

[54]  PL  16 : FORMMl 4 ; FNEXTl+TOPNUM 

[55]  PL  15  :FNEXT<-FNEXT+1 

[56]  CHE C REFORM 

[57]  ->0 

[58]  PL 17 : FORMMl \FNEXT]+  000  , TOPNUM , 0 , TOPPAREN 

[59]  ->PL1 5 

[6  0]  PL  18 : PAREN STACK+P AREN STACK  tFNEXT 
V 


V  R+N  DECLCODE  ARG ; I ; J ; K ; L ;M ; B 

[1]  K+Nl 2] 

[2]  R<-(N<-lpN)p  ’  0  ’ 

[3]  -►(  0=ARG+\ARG) /0 

[4]  ->SKIP  7x/lPL>_l+2*32 

[5]  JlJ?G«-i4i?G+0.5xio*-tf 

[6]  P+(  (  OTiV-JOp  10)TUPG 

[7]  +SKIP  2xP=0 

[  8  ]  R-*-R  ,  L/1PG*-1  Ox  l  |i4P(7 

[9]  -*(N>pR)  /8 

[10]  i?«-'  0123456789'  [ltP] 

[11]  ->o 

[12]  P*-Pp'*f 

[13]  +  (  v/(4/?6>10*P)  ,P>16  ) /O 

[14]  P*-((9,P[9)  ,J)DECLCODE(  10*9)  UPG 

[15]  4PG«-Ui?G*10*9 

[16]  P<-(  (  (P-9)  ,  0[P-9  )LLLLL(7PP  ARG)  tR 

V 

V  R+DECIMAL  STR\I\J\K\L 

[1]  STR<-(STRe  '  01  234  5  67  8  9  ?  )  /S2*i? 

[2]  i?«-10±“l  +  '  012345  6789  ' \STR 

V 


V  R+TOPPAREN 

[1]  P<-(  %P AREN STACK)  [p  ,P  AREN  STACK ] 

[2]  P^lPP/V5L/16"’P*-P/lPP/i/5LylLP[  i  1  +  p  , P/IPPPSL^LP ] 

V 


. 


' 


m 


V  ST REWRITE  OUT  LIST; I \REPTAB ; REP ; ST \J\K\X\Y\Z 

[1]  STR+\I+0 

[2]  LOOP :  -+SKIP  l<J*«-l  +  (  FEE  XT-  1)\I 

[3]  REPTAB<-  7  2  pO 

[4]  ->SKIP  3  x  FORUM  [  5  ;  P  ]  *REP+-  0 

[5]  +(FORMMm;I]zK+REPTABlJ+UlEPTABl  ;l]eO,I)il;2]+l  )  /LOOP 

[6]  REPTABIJ; >J,X 

[7]  I«-F0PAf//[6  ;J] 

[8]  ->SKIP  2  *  P  OR  MM  [  1 ;  J  ]  >  1 

[9]  SJ,i?+52’fllF0OT[5  ;  J]p  '  * 

[10]  +F00P 

[11]  -+SKIP  2xO*F0PMtf[4;I] 

[12]  STR+STR  ,  0P/1PSFP[!ZMFG/'MP[  1  ;  FSP/F-/[  6  ;  J]  +  i  FORMMl 

5 ;!]]] 

[13]  ->L00P 

[14]  SrFt-STP.FOPiW  ;  I10UTITEM  lpLIST 

[15]  -+SKIP  2*0  =  pLIST+l  SUFFIX  LIST 

[16]  +SKIP  ~  1* FORMML  4  ;  P  ]  >REP+-REP+  1 

[17]  ->LOOP 

V 


V  CHECKLTARGET  N\I\J\K\L 

[  1  ]  ->(  0  >K+N-  (  p  TARGMA  T )  [  2  ]  )  /  0 

[  2  ]  2M P  SAM  P<-  (  2  ,  K  )  FFP^I  FPF  271 P SAM  P 

V 


V  SEMANTICS  N 

[1]  ->2  xLANGCODE 

[  2  ]  COMP  WORT  N 

[3]  ->  0 

[4]  COMP LI  N 

V 


V  R+TOPNUM 

[1]  P«-(  ,NUMSTACK)lp  ,NUMSTA  CX  ] 

[  2  ]  N  UMS  TA  CK+-  (  ~  (  p  ,  N  UMS  TACK)ul)/N  UMS  TA  CX 

V 


V  R<-TOP ;  K 

[1]  F«-(  %ROWPT)  ZK+p  ,ROWPTl 

[2]  ROWPT+(~Kul)/ROWPT 

V 


. 


I 


1 


V  R<-M  OUT  ITEM  A  ;Y  \L  \B  \D  \N  ;  Z  \J ;  SAVE  \EXP  \U ;  K;  S 
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[  1  ]  Y+TARGMA  T  [  ;  Ml  6  ]  +  i  (  M<- ,  M )  [  5  ]  ] 

[2]  R+(L<-Ml  5])p*  f 

[3]  +SXIP  4^1 <B+M[ 1 ] 

[4]  D++/YI  1  ;  ]  =  0 

[5]  N*-(  (  ~A/[  3  ]  )  xoTP-p  tA  )p  '  ' 

C6]  RKYlli  ']  =  0)/\Ll+DpNtA,R 

[7]  LAST:+pO/RlU/ \L]<-CHARSETl(U+Ylh  ]>0)/y[l;  ]] 

[8]  Z«-(  J>”l  +  y[3  ;  li4)>"l+(y[4;]>0)il 

[9]  Z<-ZA~(  (^<0)AleJ[4;  ])v(^>0)A2£y[4;  ] 

[10]  Z<-ZaS<-(  4e  J[  3  ;  ])v(  U)<10*  +  /(-Z)  ,0>y[3;  i“l+(Y[ 

3;  ]e  1  ”l)i  1] 

[11]  SAVE++/D*-0>Yl  3  ;  Z  +  iL-Z] 

[12]  +SXIP  9 x~4e  y [ 3 ;  ] 

[13]  N<-  (  (  y  [  3  ;  ]  e  1  6)il)-l+(y[4;  ]>0)  i  1 

[14]  N<-N~  L  1  +  1  0©  \A 

[15]  EXP+-(  1  X1  , CHARSET)  [  1  +  y [  5  ;  J+l]] 

[16]  S<-(  (  (P<0)  Ay[  4 ;</+2  ]e  1  3  )  ,  (  N  >  0  )  Ay  [  4  ;  J+  2  ]  £  2  3)/’+-' 

[17]  EXP+EXP  AlpS  '  ),  2  0  DECLCODE  |  N 

[18]  /?<-((  10,  ML  2]  ,  0  1  t<7,M[6]  )OUTITEM  A*B*N)  tEXP 

[19]  ->0 

[20]  P[P/Z+iL-Z>S/17Pp  (  (~A/[2]  )+SAVE  ,L-l  /(y[3;  ]i  1)  , 

l  +  y[  3  ;  ]i”l)PPPLP<7PP  i4 

[21]  i?C  (  y[  3  ;  ]  6  1  7  )  /iL>’  .  ' 

[22]  P[  (y[3  ;  ]  =  2) /iL]«-'  ,  * 

[23]  P[  (y[3;  ]  =  3)/iL]«-' /' 

[24]  i?[(y[3;]  =  5)/iL>»  ' 

[25]  U<-La.~  1 + ( P£ ’  123456789'  )  l  1 

[26]  i?[([/Ay[2;]vy[4;]ei3)/iL]-H'  ' 

[27]  i?[  (  y  [  3  ;  ]  =  6)/iL>'  O' 

[28]  ->SXIP  4 x Z  =  0 

[29]  ->SZIP~v/U<0)  A£«-£/Ay[4;  ]e  2  3 

[30]  Rlt /D/\L1+' 

[31]  ->PPIP~v/U>0)AP*-PAy[4;  ]£  1  3 

[32]  P[T  /D/\L]<-'  +  ' 

[33]  U*-La~  1+  (  Pe  '  123456789'  )  i  1 

[34]  -+SKIP  0  =  +  /£/«-f/Ay[5  ;  ]>0 

[35]  P[P>CP/lPSPP[y[5  ;£/^P/iL]] 

[36]  ->(  )  /LAST 

V 

V  CHE CKEFORM 

[  1  ]  ->(  FEE XT <  (  p  FOR  MM )  [  2  ]  )  /  0 

[2]  FORMM+-  2  5  EXPAN  DK  FOR  MM 

V 


charset 

<^  =  ^>?:VA-T?w6p~t4-\o*->-arL_VA°,[](  )cDnuiT  |  ;  :\ 
1234567890  +  xQWERTYUIOP+~ASDFGHJKL  [  1ZXCVBNM ,  .  / 
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■ 


